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IDENTIFICATION 


PRODUCT CODE:  AC=-F933B-MC 

PRODUCT NAME: CZRMQBO RMO05/3/2 DISKLESS TEST, PT 2 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A ate noes BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR TH® 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RMO5/3/2 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM wi!ICH 
USES FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODUL 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN RM TO A FIELD REPLACEABLE 
MODULE OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) JS _ THE RMO5/3/2 DISK SUBSYSTEM, 
EXCLUDING THE STORAGE MODULE DISK DRIVE AND THE MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RM05/3/2 DISKLESS 
DIAGNOSTIC: 
PDP-11 PROCESSOR 
12K MEMORY 
KWii-L OR LW11-P CLOCK 
PROGRAM LOADING DEVICE 
TERMINAL 


RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3"S OR RMO2'S) 


2.2 MEDIA REQUIREMENTS 
NONE 


2.5 PREREQUISITE DIAGNOSTIC PROGRAMS 
RMO5/3/2 DISKLESS TEST, PT 1 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
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THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 
STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 
THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 


SWITCH IS ON. 


Sw15 HALT ON ERROR 
SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
SwW13 INHIBIT ERROR TYPEOUTS 


UNUSED 
SW11 INHIBIT TEST ITERATIONS 
SwW10 BELL ON ERROR 
SWO9. LOOP ON ERROR 
Sw08 LOOP ON TEST IN SWO07-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWOB TO SPECIFY 
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL LOOP ON. 


3.35 STARTING 


THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 


3.4 HALTING 


THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 
BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL. 


3.5 RESTARTING 


THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


COSY OR 6. es Se em ee eee << ae ee em eee 


SEQ 0004 
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4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I[.D.. 


THE FIRST QUESTION TYPED OUT IS: ‘'TYPE HELP TEXT (L) N ?’’, 
IF THE OPERATOR RESPONDS WITH A ''Y'', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 


tio 


1 
! 

12 TO THE QUESTION IS CONSIDERED A “N'" AND NO HELP TEXT IS TYPED. THIS 
12 QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
126 SUBSEQUENT START-UP'S. 

128 THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
129 THE OPERATOR PAY CHANGE THE RH/AM GAGE ADDRESSES WITH THE FOLLOWING 
130 DIALOGUE. 

132 EXAMPLE 1 

134 RMCS1=176700 <CR> :NO CHANGE IN ADDRESS 

135 RMVEC=000254 <CR> “NO CHANGE IN ADDRESS 

137 EXAMPLE 2 

139 RMCS1=176700 177200<CR> ; CHANGE BASE ADDRESS TO 177200 

140 RMVEC=000254 260<CR> = CHANGE VECTOR ADDRESS TO 260 

142 ON THE INITIAL START, THE NEXT QUESTION TYPED IS. ‘TYPE “‘A’’ To 
143 TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
144 A CARRIAGE RETURN’. THEN, "DRIVE(S):* IS TYPED AND WAITS FOR THE 
145 OPERATOR TO TYPE AN ‘'A’’,. TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
146 STRING OF DRIVE NUMBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
447 “CARRIAGE RETURN'’’. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
148 ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
149 SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
150 STARTS, ONLY THE "DRIVE(S):* PROMPT IS TYPED. 

152 THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
153 DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
154 IS AN EXAMPLE PRINTOUT: 

156 ‘UNIT STATUS: 

157 0 "ONLINE RMO3 

158 ; 1 LOAD DEVICE 

159 : 2 OFFLINE RMOS 

160 3 NOT PRESENT 

161 4 NOT PRESENT 

162 5 NOT AN RMOS/3/2 

163 6 NOT PRESENT 

164 7 NOT PRESENT* 

166 THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 & 2 WILL BE TESTED, WHILE DRIVES 
167 1,& 3-7 WILL NOT BE TESTED. 

169 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
170 STATUS OF THE DRIVE: 
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SEQ 0006 
"DRIVE(S) TO BE TESTED, 0, 2' 


IF NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 


"DRIVE(S) TO BE TESTED, NONE’ 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES icc FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT 


ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0 
DRIVE 2' 


AFTER ALL _THE DRIVES ARE COMPLETELY See’ THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS wit CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
OF RESPONSE REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 
L=LETTER. 

4.3 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 


"END OF PASS ie 


THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 


"TOTAL ERRORS SINCE LAST REPORT 0° 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING eg EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER 


4.6 ERROR REPORTS 


THE RMO5/3/2 2h i 


PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO L 


] IC V 
D IN FAULT RESOLUTION AND (2) MINIMIZE 
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REFERENCES TO PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR aed CONTAINS THE _ OF THE 
UNIT (DRIVE) BEING TESTED, DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS oe IS FOLLOWED BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH 
GIVE A COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING 
MODULES IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS 
= Bay PERTININENT TO THE ERROR, INCLUDING EXPECTED AND ACTUAL TEST 


THE FOLLOWING PRINTOUT IS AN ERROR MESSAGE IN THIS PROGR4M: 


# 0 = RMO3, TESTH 235, ERRA 61, PC=017724 
INCORRECT ECC PATTERN GENERATED DURING WRITE 
PROBABLE FAULT(S): 
(NOT INCLUDING CABLES OR CONNECTORS) 
IF MODULE, M8685 


C ECC RECEIVED ECC 
7 175154 017677 003402 


4.7 EXECUTION TIME 
PASS 1 OF THE PROGRAM TAKES ABOUT 2 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 12 SECONDS. 
5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
THE RMO5/3/2 DISKLESS DIAGNOSTIC IS EXECUTABLE ON ANY PDP-11 


ee PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONFIGURATIONS 


THE RMO5/3/2 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMOS/3/2 
SUBSYSTEMS HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS 
A — PORT (A OR B) AND NOT TO THE PROGRAMMABLE 


om 


5.353 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RM05/3/2 DISKLESS DIAGNGOSTIC. 
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SEQ OO00/ 
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5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NO! BE USED DURING THE RMO5S/3/2 
DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RMO5/3/2 a} Syd DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 


ae A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO5/3/2 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH xxDP 
IN DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 


one” PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 


6.0 TEST DESCRIPTION 


THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
owe USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE RMO5/3/2 ane DIAGNOSTIC CAN BE EXECUTED USING AN RH70 
OR AN RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM, 


SEQ 0008 
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1 TRANSFER TEST 
PURPOSE : 
TO VERIFY THAT THE RMO5/3/2 CAN COMPLETE A REGISTER TRANSFER 


ON THE MASSBUS, AND _IN PARTICULAR, TO VERIFY THAT ‘’TRANSFER’’ IS NOT 


STUCK IN AN INACTIVE STATE. 
PROCEDURE : 

THE PROGRAM WRITES AND READS REMOTE REGISTERS FOR THE 
SELECTED DEVICE. REGISTER pg bt AND PARITY ERRORS ARE 
IGNORED, AND THE TEST FAILS IF A ‘NONEXISTENT DEVICE ERROR’ OR 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 

PROBABLE FAULT: 

THE TEST FAILS IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO Li HE ci aaa POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 

1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


3. CS MODULE 


2 CTOD TEST 
PURPOSE : 

TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE 
RMO5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
“CONTROLLER TO DEVICE’ HAS NOT FAILED. 

PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 

REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ‘‘IF3 CTOD HOLD 
H'' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 

AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 

PROBABLE FAULT: 

1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 
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po TEST 3 MASSBUS INITIALIZE TEST 
407 PURPOSE : 


409 TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
410 THE MASS BUS. 


412 PROCEDURE : 

414 USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
415 TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
416 ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
417 NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 

419 PROBABLE FAULT: 

421 1. ASYNCHRONOUS MASSBUS MODULE 

4253 2. IF MODULE 


425 3. CS MODULE 


431 TEST 4 CLEAR STUCK ACTIVE TEST 
433 PURPOSE : 


435 TO VERIFY THAT ‘MBA CLR L'’ ON THE CS MODULE IS NOT STUCK IN 
436 AN ACTIVE STATE. 


438 PROCEDURE : 

440 CONTROLLER CLEAR IS eee TO INITIALIZE THE SELECTED UNIT, 
44] AFTER WHICH 1'S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
442 MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
443 IS OK, ELSE, ‘MBA CLR L'' IS PROBABLY STUCK ACTIVE. 

445 PROBABLE FAULT: 

447 1. CS MODULE 

449 2. IF MODULE 


451 3. ASYNCHRONOUS MASSBUS MODULE 
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SEQ 0011 
| 457 TEST 5 TRISTATE TRANSFER TEST 
| 4 
| 459 PURPOSE : 
461 TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 
462 TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
463 BIT POSITION IS INDEPENDENT. 
4 
465 PROCEDURE : . 
467 THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A NONZERO 
468 VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 
469 USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 
470 AS IS NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 
47) POSITION. 
473 THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
474 THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
475 MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
626 EACH BIT POSITION. 
478 FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 
479 OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
480 READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
481 BiT POSITIONS. 
483 PROBABLE FAULT: 
485 1. ASYNCHRONOUS MASSBUS MODULE 
487 2. IF MODULE 
488 
489 3. CS MODULE 
490 
491 4. DS MODULE 
492 
493 
494 
495 
696 
497 TEST 6 REGISTER SELECT TEST 
ps4 PURPOSE : 
501 TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT INA STUCK 
502 POSITION. 
503 7 
304 PROCEDURE : 
506 EACH REGISTER SELECT LINE IS TESTED BY WRITING ZEROS 
507 THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE ZERO, THEN 
5 ITING HOSE DEVICE REGISTERS FOR WHICH THE LI ST BE 
509 E. We seeS Be 1S READ K AND IF THE SELECT LINE IS 
510 STUCK AT ZERO E ZERO REGISTER WILL CONTAIN ONES. THE PROCESS 
511 IS REPEATED to’ DETECT A STUCK AT ONE FAULT, EXCEPT I'i THIS CASE, 
212 THE ONES REGISTER IS WRITTEN FIRST. 


| 
| 
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PROBABLE FAULT: 

1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


i 8 ARE TESTED IN THIS 


CT 
NE ESTED IN THE ‘‘ILR TEST’, 


7? DRIVE TYPE TEST 
PURPOSE : 

TO TEST THE ‘DRIVE TYPE’ REGISTER, RMDT. 
PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RMOS, RMO3S OR RMO2 DRIVE. 


PROBABLE FAULT: 
1. IF MOULE 


10 DEVICE AVAILABLE TEST 
PURPOSE : 

TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 

THE PROGRAM TESTS ‘DVA’’,BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 


11 SEARCH TIMEOUT TEST 
PURPOSE : 


TO VERIFY THAT THE SEARCH TIMEOUT ONE SHOT SETS ‘OPI’, 
EXCEPT WHEN ‘SEARCH TO DISABLE'' IS ACTIVE. 


SEQ 0012 
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TEST 


PROCEDURE : 


WITH SEARCH TIMEOUT DISABLED, THE TEST wig th’ A DATA 
COMMAND TO THE POINT WHERE ‘'P ENABLE SEARCH'’ 1S ASSERTED. 
AFTER WAITING A SUFFICIENT PERIOD AND VERIFYING THAT OPI 
A OT TEST ENABLES SEARCH TIMEOUT AND VERIFIES 


PROBABLE FAULT: 
1. CS MODULE 
NOTE: IT IS ASSUMED THAT THE ‘’SET OPI TEST’’ HAS 


ALREADY PASSED, THUS MAKING THE IF MODULE 
AN IMPROBABLE FAULT. 


12 SET DTE TEST 
PURPOSE : 


IN ADDITION TO VERIFYING THAT ‘DRIVE TIMING ERROR’’ CAN 
BE SET BY THE CS MODULE, THIS TEST ALSO VERIFIES 


aft Bis “MAINTENANCE SECTOR COMPARE'' IS NOT STUCK AT ONE 


* — THAT "ENABLE SEARCH’’ IS NOT STUCK AT ONE OR ZERO. 
PROCEDURE : 


(1) INITIALIZE AND VERIFY THAT ‘DTE** IS RESET, THEN 
SET MAINTENANCE INDEX PULSE AND VERIFY THAT DTE IS STILL 
RESET. THIS TEST WILL INSURE THAT THE SECTOR COMPARE FLOP 
IS NOT STUCK AT ONE. 


(2) EXECUTE A DATA COMMAND IN MAINTENANCE MODE TO 
THE POINT WHERE SEARCH IS ENABLED, 1.E., P EN SEARCH H IS 
IS ACTIVE. SET AND RESET THE SECTOR PULSE TO SET “CSS EN 
rs nt ch AND CLOCK “CSS SECTOR COMPARE'’ FLOP WHICH 
SHOULD NOT SET. SET SECTOR PULSE AND VERIFY THAT DTE IS 
RESET. THIS TEST FAILS IF J INPUT TO SECTOR COMPARE FLOP 
IS STUCK AT ONE. 


REPEAT, BUT SET MAINTENANCE SECTOR COMPARE AND VERIFY 
THAT DIE SETS. THIS TEST FAILS IF MAINTENANCE SECTOR 
COMPARE IS STUCK AT ZERO. 
PROBABLE FAULT: 
1. CS MODULE 


2. DS MODULF 


SS eee 


SEQ 0075 


atin»: dio ane 


po pikes = ok ae 





TEST 


TEST 


13 FORMAT CHANGE TEST 
PURPOSE : 


TO VERIFY THAT A CHANGE IN FORMAT INHIBITS SFARCH 
ENABLE UNTIL THE NEXT INDEX PULSE. 


PROCEDURE : 


ig er WILL USE ‘DTE'’ FOR VISIBILITY OF ‘'CS3 EN 
SEARCH 


THE FOLLOWING STEPS ARE EXECUTED: 


(1) INITIALIZE ee SET THE FORMAT TO 18 BIT MODE 
TO sey "CSS FMT CHANGE'’ FLOP. 


(2) EXECUTE A DATA COMMAND TO THE POINT WHERE SEARCH 
IS ENABLED BY THE SEQUENCER. 


(3) SET ‘MAINTENANCE SECTOR COMPARE’’, THEN N SET 
"MAINTENANCE SECTOR PULSE’ TO CLOCK paee EN SEARCH’’ FLOP 
WHICH SHOULD NOT SET BECAUSE OF THE FORMAT CHANGE. 


14) RESET SECTOR PULSE TO CLOCK "CSS SECTOR COMPARE*’ 
FLOP WHICH WILL NOT SET IF °’CS3 EN SEARCH H’’ IS INACTIVE. 


(5) SET SECTOR PULSE AND VERIFY THAT DRIVE TIMING 
ERROR IS RESET. 


(6) SET AND RESET INDEX PULSE TOCLEAR THE FORMAT 
CHANGE FLOP. 


(7) SET AND RESET eects PULSE TO SET "'CS3 EN SEARCH" 
FLOP AND "CSS SECTOR COMPARE’’ FLOP. 


(8) SET SECTOR COMPARE AND VERIFY THAT DTE IS SET. 


eg THE TEST WITH A FORMAT CHANGE FROM 18 BIT MODE 
TO 16 BIT MODE. 


PROBABLE FAULT: 
1. CS MODULE 


14 PROM STROBE TEST 
PURPOSE : 


LL LLL LL CN ee a tt i il ts tt a = eee ee ee a2 = —— <« 


. 2 
CZRMQBO RMO5/3/2 DSKLS TST 2 MACRO V04.00 4=APR=81 01:29:56 PAGE 3-12 


685 


TO VERIFY THAT WORD CLOCK AND PROM STROBE CAN BE MANIPULATED 


IN MAINTENANCE MODE. 
PROCEDURE : 


INITIALIZE AND SET 16 BIT MODE, Hg SEQUENCE _THE 


MAINTENANCE CLOCK UNTIL PROM STROBE SETS. ISSUE - 


E 
MAINTENANCE CLOCK PULSES AND VERIFY THAT PROM STROBE RESETS. 


PROBABLE FAULT: 
1. CS MODULE 
2. DS MODULE 


TEST 15 SYNC WORD COUNT INHIBIT TEST 
PURPOSE : 
TO VERIFY THE FOLLOWING DURING READ COMMAND: 
* THAT "'CS4 P LFS'* (LOOKING FOR SYNC) GOES ACTIVE. 
* THAT “LOOKING FOR SYNC’ INHIBITS THE WORD COUNT 
PROCEDURE : 





AD COMMAND 
RE “LOOKING FOR SYNC*" SHOULD BE ACTIVE, W 
PROGRAM VERIFYING THE TRANSITION OF THE SIGNAL. 





PROGRAM THEN 

THAT “PROM STROBE** NEVER GOES ACTIVE. 
PROBABLE FAULT: 

1. (CS MODULE IF LFS FAILS, 

2. DS MODULE IF PROM STROBE FAILS. 


TEST 16 SYNC DETECTION TEST 
PURPOSE : 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN I5 
RECOGNIZED. 


PROCEDURE : 
THE TEST EXECUTES A READ COMMAND IN MAINTENANCE 


IS SETUP AND wrists cae w 


THE 
N SUPPLIES A SERIES OF BIT CLOCKS AND VERIFIES 


MODE . 


'% 


SEQ 0015 


CZ7RMQBO RMOS/3/2 DSKLS TST 2 





MACRO v04.00 


TEST 


TEST 


D2 
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USING BIT 10 OF THE eee REGISTER (RMMR1) TO SIMULATE 
THE SYNC BIT STREAM, AND USING PROM STROBE TO DETERMINE 
It THE SYNC PATTERN HAS BEEN DETECTED. 


THE SYNC PATTERN IS 00011001, WITH THE ar MOST 
BIT REPRESENTING THE LAST BIT OF THE STREAM 


PROBABLE FAULT: 
1. DS MODULE 
2. (CS MODULE 


17 ABORT SYNC DETECTION TEST 
PURPOSE : 


TO VERIFY THAT ‘WORD COUNT INHIBIT’’ | 
"DRIVE TIMING ERROR’’ OCCURS DURING SYNC DE 


PROCEDURE : 

READ COMMAND IS INITIATED IN MAINTENANCE es WHEN 
“LOOKING FOR SYNC*’ GOES ACTIVE, THE TEST FORCES A DRIVE 
TIMING ERROR AND USES PROM STROBE TO VERIFY THAT “WORD 
COUNT INHIBIT’’ HAS BEEN RESET. 

PROBABLE FAULT: 


1. DS MODULE 


S RESET IF A 
TECT ON. 


20 SYNC GENERATION TEST 
PURPOSE : 


TO VERIFY THAT THE APPROPRIATE SYNC PATTERN IS 
GENERATED DURING A FORMAT OPERATION. 


PROCEDURE: 

THE TEST EXECUTES A WRIT 
IN MAINTENANCE MODE, AND VERI 
PATTERN IS GENERATED BY MONIT 
TENANCE REGISTER (RMMR1). 
PROBABLE FAULT: . 


1. DS MODULE 


E HEADER AND DATA COMMAND 
F THAT THE CORRECT SYNC 
ORING WRITE DATA AT THE MAIN- 


EE ON Bee ee ee ae: 


SEQ 0016 


ee; 
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SEQ 0017 
799 
800 
01 
802 
803 TEST 21 WRITE HEADER TEST 
ae PURPOSE: 
307 TO TEST THE OPERATION OF (1) THE DATA BUFFER AND SHIFT 
808 REGISTER AS WELL AS (2) THE ECC GENERATION DURING WRITE. 
810 PROCEDURE : 
B12 A WRITE HEADER AND DATA COMMAND IS EXECUTED IN MAINTENANCE 
B13 MODE. THE TEST VERIFIES HEADER WORDS ONE AND TWO AND THE 
B14 CRC CHARACTER USING THE WRITE DATA BIT OF THE MAINTENANCE 
gi5 REGISTER. 
217 AN RMO2/3 USES CYLINDER 822., TRACK 4.. SECTOR 31. AND 
818 16 BIT FORMAT FOR THE TEST, WHICH CORRESPONSE 10 THE FOLLOWING: 
ase HEADER: 
822 WORD 1 - 1101001100110110 
824 WORD 2 = 0000010000011111 
826 RMOS USES CYLINDER 822., TRACK 18.. SECTOR 31. AND 
827 16 BIT. FORMAT FOR THIS TEST, WHICH CORRESPONSE TO THE FOLLOWING: 
829 HEADER: 
B30 
831 WORD 1 = 1101001100110110 
833 WORD 2 - 0001001000011111 
855 PROBABLE FAULT: 
837 1. DS MODULE OR MASSBUS MODULE 
839 
840 
B41 
B42 
845 TEST 22 HEADER COMPARE TEST 
B45 PURPOSE : 
847 TO CHECK THE OPERATION OF (1) THE SHIFT REGISTER AND 
848 DATA BUFFER AS WELL AS THE (2) CRC GENERATOR DURING 
849 READ, 3 
850 
851 PROCEDURE : 
853 THE TEST EXECUTES A READ HEADER AND DATA COMMAND IN 
854 MAINTENANCE MODE USING BIT 10 OF THE MAINTENANCE REGISTER 
855 (RMMR1) TO SIMULATE THE DATA BITS FOR THE FIRST AND SECOND 





- 
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SEQ 0018 
856 HEADER WORDS AS WELL AS THE CRC CHARACTER. THE CRC CHARACTER IS 
857 1S FAULTED, AND THE TEST VERIFIES THAT A CRC ERROR IS DETECTED. 
| 858 ADDITIONALLY, THE TEST VERIFIES THAT HEADER WORDS ONE AND TwO 
; 859 ARE CORRECTLY TRANSFERD TO MEMORY 
| 860 THE TEST USES THE SAME HEADER AS IN THE PREVIOUS TEST EXCEPT 
| 86} THAT BIT 15 IS INVERTED. 
| B63 PROBABLE FAULT: 
| B65 : 1. DS OR IF MODULE IF CRC ERROR NOT DETECTED: 
| 867 2. DS OR MASSBUS MODULE IF DATA INCORRECT 
| 869 
| 870 
871 
872 
873 TEST 23 ECC GENERATION TEST 
875 PURPOSE : 
877 TO CHECK ECC OPERATION DURING WRITE. 
879 PROCEDURE : 
881 A WRITE DATA COMMAND IS EXECUTED IN MAINTENANCE 
882 MODE. ALL ONES DATA FIELD IS USED, AND THE TEST VERIFIES 
883 THE ECC CHARACTER VIA THE WRITE DATA BIT OF THE MAINTENANCE 
884 REGISTER. THE DATA FIELD IS NOT VERIFIED. 
gs PROBABLE FAULT: 
888 1. DS MODULE 
889 
890 
891 
892 
893 
89% TEST 24 ECC DETECTION TEST 
836 PURPOSE : 
898 TO CHECK THE ECC GENERATION DURING READ. 
on PROCEDURE : 
902 THE TEST EXECUTES A READ DATA COMMAND IN MAINTENANCE 
903 3 MODE, AN ALL ONES DATA FIELD IS USED, HOWEVER THE LAST DATA 
904 WORD 1S FAULTED. 
906 THE TEST VERIFIES (1) THAT AN ECC ERROR IS DETECTED 
907 AND THAT (2) THE POSITION AND PATTERN REGISTERS ARE VALID. 
909 PROBABLE FAULT: 
911 1. DS MODULE 
912 \ 


po 
| 


LLL LL LEELA L OLED LEE LEE LLL LOE LO EE TOT Tt ee elt Ge ct ct mt SOF De ee e+ 


FT NS | st se e rS e 
LS | eS tn et sel > nee ——_—_ 
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680 


681 
682 
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;*LAST REVISION 04=APR=81 


TITLE C2RMQBO RMO5/3/2 DSKLS TST 2 
:*COPYRIGHT (C) 1 

:*DIGITAL EQUIPMENT CORPORATION 

: * COLORADO SPGS., CO. 80919 


: sPROGRAM BY MIKE LEAVITT 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 


¢ PACKAGE (MAINDEC=11=DZQAC=C5), 18-MAR=81 
* SBITL OPERATIONAL SWITCH SETTINGS 


:* SWITCH USE 
. * ee ke Oe ee A UN er ee ee NN GD et er Me ee Noe cee ee cee 
5* 15 HALT ON ERROR 
:* 14 LOOP ON TEST 
;* 13 INHIBIT ERROR TYPEOUTS 
;* 11 INHIBIT ITERATIONS 
;* 10 BELL ON ERROR 
;* 9 LOOP ON ERROR 
:* 8 LOOP ON TEST IN SWRr<7:0> 
st 7 ™N128 
:* 6 TN64 
3° 5 ™N32 
se 4 ™N16 
3* 3 TNS 
z@ 2 TNS 
:* 1 ™N2 
:* 0 TN1 
-SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 se 
STACK = 1100 
ERROR = EMT :;BASIC DEFINITION OF ERROR CALL 
SCOPE = [OT ;;BASIC DEFINITION OF SCOPE CALL 
3 SMESCELL ANE OUS DEFINITIONS 

= FT :;CODE FOR HORIZONTAL TAB 
“3 = ¥2 7:CODE FOR LINE FEED 
CR = 35 Ce FOR CARRIAGE RETURN 
CRLF = 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
ad ia = 177776 ; ;PROCESSOR STATUS WORD 
STKLMT = 1777764 +3 STACK LIMIT REGISTER 
PIRQ = WFT772 ;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 : HARDWARE SWITCH REGISTER 

*GENERAL PURPOSE REGISTER DEF INI TIONS 

= £0 ;; GENERAL REGISTER 
re = %1 3; ;GENERAL REGISTER 
2 = Z2 ;; GENERAL REGISTER 
R3 s 35 ENERAL REGISTER 
RZ = ¥4 3; GENERAL REGISTER 


° 7RMGBO i ti B DSKLS TST 2 
BASIC DEF INIT 


er ee op eereee a 


000005 
000006 
000007 
000006 
000007 
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RS = 25 ;;GENERAL REGISTER 
RA = %6 :; GENERAL REGISTER 
R? = <7 ;;GENERAL REGISTER 
SP = %6 :: STACK POINTER 
PC z ¥7 ;;PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRO = 0 ;;PRIORITY LEVEL O 
PR1 = 40 : ;PRIORITY LEVEL 1 
PR2 = 100 ; PRIORITY LEVEL 2 
PR3 = 140 : PRIORITY LEVEL 3 
PRG = 200 : PRIORITY LEVEL 4 
PRS = 240 + sPRIORITY LEVEL 5 
PR6 = 300 sPRIORITY LEVEL 6 
PR7 = 340 : :PRIORITY LEVEL 7 
:®'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15 = 100000 
Sw14 = 40000 
Sw13 = 20000 
Sw12 = 10000 
Swi = 4000 
Sw10 = 2000 
Sw09 = 1000 
Sw08 = 400 
Sw07 = 200 
SWw06 = 100 
Sw05 = 40 
SW04 = 20 
Swo3 = 70 
SwO02 =4 
Sw01 = 2 
Sw0O0 =] 
SW9=SWO09 
SW8=Sw08 
SW7=SwC7 
SW6=S 
SWw5=Sw05 
SW4=S 
SW3=Sw03 
SW2=SwWO02 
Siw1=SwW01 
SWwO= 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BITIS = 100 
BIT14 = 40000 
BIT13 = 20000 
BITi2 = 10000 
BIT11 = 4000 
BIT19 = 2000 
BITO9 = 1000 
I1T08 = 400 
BITO7 = 200 
BIT06 = 100 
BIT0S = 40 
BITO4 = 20 


LLL LLL AEC EL EE el tit tt etl tt et a i. a 


SEQ 0020 


© ZRMQBO Paitin ons TST 2 


BASIC DEFINIT 


._——— ee Sone ee 


re me er 
ne eee Sissi arrestee ratennnmnen en 


; 
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BITOQ3) = 10 
BITQ2 = 4 
BITO) =2 
BITOO = 1 
BIT9=B1T09 
B1T8=B1T08 
BIT7=B1T07 
B1T6=81 106 
BIT5=B1T05 
BIT4=B1T04 
BIT3=B1T03 
BIT2=BIT02 
BIT1=B81T01 
B1T0=B1T00 
;*BASIC *'CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC = S| OUT AND OTHER ERRORS 
RESVEC = 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 ’ BIT 
TRTV = 14  TTRACE TRAP 
BPTVEC = 14 ; BREAKPOINT TRAP (BPT) 
IOTVEC = 20 oe Lg to pad TRAP (JOT) **SCOPE** 
VEC = 24 ;;POWER FAIL 
EMTVEC = 30 ;sEMULATOR TRAP (EMT) **ERROR** 
TRAPVEC = 34 33°"TRAP’’ TRAP 
TKVEC = 60 ::TTY KEYBOARD VECT 
PVEC = 64 ;;TTY PRINTER VECTOR 
PIRQVEC = 240 : PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RM REGISTER BIT DEFINITIONS 
:*RMCS1 CONTROL STATUS REGISTER 


DVA = BIT11 ;DEVICE AVAILABLE-READ ONLY 
F4 = BITOS :FUNCTION CODE 

F3 = BITO4 ;FUNCTION CODE 

F2 = BITO3 ;FUNCTION CODE 

FI = BITO2 ;FUNCTION CODE 

FO = BITOI sFUNCTION CODE 

GO = BITOO :60 BIT 

FNCMSK = 000077 ;FUNCTION CODE MASK 
gece CODES (BITS 01-05 OF aa 

ILFO2 = 000002 7 ILLEGAL COMMAND 

SEEK = sSEEK C 

RECAL = :RECALIBRATE COMMAND 
DRVCLR = 000010 ;DRIVE CLEAR COMMAND 
RLEASE = Q000i2 REL C 

OFFSET = 000014 : OFF C 

RTC = 000016 RETURN * CENTERLINE COMMAND 
RIP = 000020 :READ IN PRESET COMMAND 
PAKACK = 000022 “PACK ACKNOWLEDGE COMMAND 
PACACK = PAKACK 

ILF24 = 000024 ; ILLEGAL COMMAND 

ILF26 = 000026 : ILLEGAL COMMAND 

SEARCH = 000030 :SEARCH COMMAND 


0 CE EK Meee ek 


SEQ 0021 
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™ 
aS] 
NN 
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DISK ADDRESS REGISTER 
; TRACK igs DEF INITIONS 
6 BIT12 


S 
P*] 
“rn 
oa) 
w 
J 
m 
a | 
me 
= 
me 
~4 
— 
4 
“w 


ILF30 = =-—:« 000030 
ILF32 4 ©6= 000032 
ILF34 = 000034 
ILF36 = 000036 
ILF40 == 000040 
ILF4e@ ==: 000042 
ILF 44 = 000044 
ILF46 == 000046 
WwCD = 000050 
WCH = 000052 
ILF54 = Q00054 
ILFS6 = 000056 
WD = 000060 
WH = 000062 
ILF64 = 000064 
ILF66 = 000066 
RD = 000070 
RH = 000072 
ILF74 = 000074 
ILF76 == 00007 

: *RMDA 

TAI = BIT 

TA8 = BIT11 

TAS = BIT10 

TA2 = BITO9S 

TAl = BITO8 

; SECTOR 

SA16 = BIT04 

SA8 = BITO3 

SA4 = BITO2 

SA2 = BITO! 

SAT = BITOO 


TRACK & eh iby MASKS 
TADMSK = 177400 
SADMSK = 000377 
DRIVE STATUS REGISTER 


: *RMDS 


7 *RMER1 


w 
we 
— 
~ 
Ww 


nhHounnhnihkainhun 
BDowwwwwwow 
Gee Sg ee a me ee te been bee 


QoOo0o000-- 
SAN@WOO—nrWs 


ERROR REGISTER #1 


i; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
; ILLEGAL COMMAND 
;WRITE CHECK DATA COMMAND 
;WRITE CHECK HEADER AND DATA 
; ILLEGAL COMMAND 
st a 
;WRITE DATA COMMAND 
;WRITE HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 
s ILLEGAL C 
; READ DATA 


COMMAND 
;READ HEADER AND DATA COMMAND 
7 ILLEGAL COMMAND 
; ILLEGAL COMMAND 


; TRACK ADDRESS 16. 
; K ADDRESS 8 


; TRACK ADDRESS 1 


sSECTOR ADDRESS 16. 
:SECTOR ADDRESS - 
;SECTOR ADDRESS 4 
>SECTOR ADDRESS 2 
;SECTOR ADDRESS 1 


; TRACK ADDRESS MASK 
;SECTOR ADDRESS MASK 


sATTENTION ACTIVE 

: COMPOSITE ERROR 

:POS1 TIONING IN PROGRESS 
DIUM ON LINE 


WRITE LOCK 
:LAST BLOCK TRANSFERRED 
; PROGRAMMABLE 


:DRIVE PRESENT 
;DRIVE READY 


VOLUME VALID 
SOFFSET MODE ACTIVE 


SEQ 


OO - 
VUc < 


Se tne = 


~ CZRMQBO RMO5/3/2 DSKLS TST 2 
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WOoOwowowowwnwwoqaw 
eee ee ee a ee ee 


=x 
> 
m 
Hone nkenhnnhnnnn nw 


;DATA_CHECK ERROR 


; DRIVE UNSAF 


; E 
;OPERATION INCOMPLETE 


Het: TIMING ERROR 
WRITE LOCK ERROR 

INVALID ADDRESS ERROR 
sADDRESS OVERFLOW ERROR 
;HEADER CRC ERROR 

;HEA DER COMPARE ERROR 

ECC 'HARD’’ ERROR 
WRITE CLOCK FAILURE 
RMAT ERROR 


“FO 

:PARITY ERROR 

;REGISTER MODIFICATION REFUSED 
; ILLEGAL REGISTER 

: ILLEGAL FUNCTION 


NDTMSK = DCK!DTE!WLE!AOE!HCRC!HCE!ECH! WCF FER 
;' NDTMSK'' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 
: COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS 


:*RMAS ATTENTION SUMMARY REGISTER 


:*RMLA LOOK AHEAD REGISTER 


ATNMSK = 377 

SC4 = BIT10 
SC3 = BITOS 
SC2 = BITO8 
Sc = BITO? 
sco = BITO6 


; *RMMR1 MAINTENANCE REGISTER #1 
;WRITE ONLY BITS 


DBCK = BIT15 
DBEN = BIT14 
DEBL = BIT13 
MSEN = BIT12 
MCLK = BIT11 
MRD = B1T10 
MUR = BITO9 
MOC = BITO8 
MSER = BITO07 
MDF = BIT06 
MS = BITOS 

= BITO3 
MI = BIT02 
MSC = BITO1 
DMD = BITOO 
READ ONLY BITS 
Occ = BIT15 
RG = BIT14 





;MASK FOR ATTENTION BITS 


sSECTOR COUNT = 16 
;SECTOR COUNT = 8 
sSECTOR COUNT = 4 
:SECTOR COUNT = 2 
;SECTOR COUNT = 1 


:SECTOR COUNT MASK 


:DEBUG CLOCK 
:DEBUG CLOCK ENABLE 
DIAGNOSTIC END OF BLOCK 
; SEARCH TIMEOUT ENABLE 
wis he CLOCK 
READ DAT 
UNIT READY 
:0N CYLINDER 


EEK ERROR 
:DRIVE FAULT 
SECTOR PULSE 
;WRITE PROTECT 
: INDEX PULSE 
:SECTOR COMPARE 
:DIAGNOSTIC MODE 


OCCUPIED 
RUN AND GO 


Se Kee ere we eee ee ke — He em te we eer — 


SEQ 0025 
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Q 

822 010000 

825 004 

824 002000 

825 001000 

826 0004 

827 000200 

828 000100 
000040 
000020 

831 000010 
000004 

833 000002 
000001 

835 051401 

836 

837 

838 

839 100000 

840 040000 

841 020000 

842 004000 

845 

844 020024 

845 024024 

846 

847 

848 

849 010000 

850 004000 

851 002000 

852 000200 

853 161577 

854 

855 

856 

857 001777 

858 176000 

859 

860 

861 

862 

863 100000 

864 040000 

865 020000 

866 010000 

867 004000 

868 002000 

871 001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 


Ls 
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EBL = BIT13 :END OF BLOCK 
REX = BITI2 ; EXCEPTION 
ESRC = BIT11 SENABLE SE 
PLFS = BIT10 ; LOOKING YNC 
ECRC = BITO9 sENABLE CRC OUT 
PDA = BITO8 :DATA ARE 
PHA = BITO7 ;HEADER AREA 
CONT = BITO6 TINUE 
wC = BITOS ;WORD CLOCK 
EECC = BITO4 sENABLE EC 
MwD = BITO3 ‘WRITE DATA BIT 
LS = oi Ts ;LAST SECTOR 
LST = BITO1 ;LAST SECTOR AND TRACK 
DMD = BITOO “DIAGNOSTIC MODE 
MRIAAA = DMD!MUR'DBEN'MOC'MSEN 
:*RMDT DRIVE TYPE REGISTER 
NSA = BIT15 iNOT SECTOR ADDRESSED = 0 
TAP = BIT14 ;TAPE DRIVE = 0 
MOH = BIT13 sMOVING HEAD = 1 
DRQ = BIT11 :DRIVE REQUEST REQUIRED 
SNGPRT = 020024 7SINGLE PORT DRIVE TYPE 
DULPRT = 024024 > DUAL PORT DRIVE TYPE 
>*RMOF OFFSET REGISTER 
FMT16 = BITI2 316 BIT WORD FORMAT 
ECI = BIT11 ECC INHIBIT 
HCI = BIT10 SHEADER joe INHIBIT 
OF D = B]T07 [OFFSET FORWARD 

= 161577 UNSED BITS OF RMOF 
7*RMDC DESIRED CYLINDER ADDRESS REGISTER 
CYLMSK = take ;MASK FOR CYLINDER ADDRESS 
XNUDC = 176000  UNSED BITS OF RMDC 
:*RMMAR2 MAINTENANCE REGISTER #2 
a ONLY BITS 

= BIT15 :PORT A REQUEST 
ROS = BIT14 ;PORT 8 REQUEST 
TAG = 61/13 : TAG T 
TST = elti2 ; COMMAND SEQUENCE TEST BIT 
CC = BiTTl :CONTROL OR CYLINDER TAG 
CH = BIT10 : CONTROL OR HEAD TAG 
BBO9 = BIT :TAG BUS 
BB08 = BIT : TAG BUS 
BBO7 = BITO :TAG BUS 
BB06 = BIT ; TAG BUS 
BB05 = BIT05 :TAG BUS 
BB04 = BIT04 :TAG BUS 
BB03 = BI 183 ;TAG BUS 
BB02 = BITO2 :TAG BUS 
BB01 = B]TO1 :TAG BUS 





LLL BEL Al Nt Ail ea tt el ll = sit ee - - 


SEQ 0024 


| CZRMQBO RMOS/3/2 DSKLS TST 2 
— RM REGISTER BIT DEFINITIONS 


| 
877 


000001 


BB00 
: *RMER2 


ILRG76 


IDXMSK 
7*RMCS1 


M2 
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= BITOO 
ERROR REGISTER 2 


OWNS PWS 


RM REGISTER INDEX VALUES 


MNN———OO 
AOLOAOSMAS 


nunununHehHnhnhnuennnthhnnhnnnnnnnnhnout 
»~ 
S 


= 77 


; TAG BUS 


‘BAD SECTOR ERROR 


VALID COMMAND ERROR 
:LOSS OF SYSTEM CLOCK 
sLOSS OF BIT CLOCK 
DEV ICE CHECK 
:DATA PARITY ERROR 
;UNSED BITS OF RMERZ 


;MANUFACTURING DETECTED SECTOR ERROR 
USER DETECTED SECTOR ERROR 


; CONTROL STATUS sista # 





; SERIAL ores - iia 
[OFFSET REGIST 
: DESIRED CYLINDER REGISTER 


3MASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


SEQ 0025 


CZRMQBO RMO5/3/2 DSKLS TST 2 MACRO V04.00 
RH CONTROLLER REGISTER BIT DEFINITIONS 


| 
| 919 100000 Sc = BIT15 
920 040000 TRE = BIT14 
| 951 020000 MCPE = BIT13 
952 002000 PSEL ss =_BIT10 
| 953 007000 Al? —s = BITO9 
954 0004 Alé —s = BITOB 
935 000200 RDY —s=_ BITO? 
956 000100 IE = BITO6 
957 
928 + *RMCS2 
$0 100000 DLT == BITIS 
931 040000 WE = BIT14 
932 020000 UPE = BIT13 
933 010000 NED —s- = BIT12 
004000 NEM —s_ = BIT11 
935 002000 PGE -—« =: BIT10 
001000 MXF = BITO9 
937 000400 MDPE = BITO8 
000200 OR = BITO7 
939 000100 IR = BIT06 
940 000040 CLR = BITOS 
941 000020 PAT —-= BITO4 
942 000010 BA = BITO3 
945 000004 U2 = BITO2 
000002 ul = BITO1 
“ef 000001 uO = BITOO 
947 UNIT SELECT MASK 
949 000007 UNTMSK = 7 
950 
951 :*RMCS3 
952 
953 100000 = BITS 
954 040000 DPEHI = BIT14 
955 020000 DPELO = BIT13 
956 010000 WCEHI = BITI2 
957 000 WCELO = BIT11 
958 002000 DBL. Ssti‘é= ‘BUTI 
959 000100 IE = BIT06 
000010 IPCK3. = BITO3 
961 000004 IPCK2 = BITO2 
962 000002 IPCK1 = BITO1 
963 000001 IPCKO = BITOO 
965 .SBTTL 
967 000000 RMCS1 = 00 
968 000002 RMWC = 02 
969 000004 = 04 
970 000010 RMCS2. = 10 
971 000022 2 2 
972 000050 RMBAE = 50 
973 000052 RMCS3 = 52 
975 176700 ABASE = 176700 
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+ SPECIAL CONDITION-READ ONLY 
; TRANSFER ERROR 


;MASSBUS ee BUS PARITY ERROR=READ ONLY 


;POR 
ADDRESS EXTENSION 


D ONL Y 
; INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


;DATA_LATE=READ ONLY 

; WRITE CHECK yo ae ONL Y 
UNIBUS PARITY ERROR 

“ NONEX STANT DRIVE-READ ONLY 

;NONEXISTANT ME 


sUNIT SELECT 
;UNIT SELECT 


sUNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


; INTERRUPT ENABLE 
: INVERT PARITY CHECK 
: INVERT PARITY CHECK 
zs INVERT PARITY CHECK 
: INVERT PARITY CHECK 


zADDRESS PARITY ERROR 
sDATA PARITY ERROR HIGH WORD 


WRITE CHECK ERROR LOW WORD 
;DOUBLE WORD TRANSFER 


RH CONTROLLER REGISTER INDEX VALUES 


;CONTROL, STATUS REGISTER #1 
:WORD COUNT REGISTER 

:BUS ADDRESS REGISTER 
;CONTROL, STATUS REGISTER #2 
:DATA BUFFER 

:BUS ADDRESS EXTENSION 
;CONTROL, STATUS REGISTER #5 


;UNIBUS ADDRESS 


MORY~READ ONLY 

:PROGRAM ERROR=READ ONLY 

:MISSED TRANSFER 

;MASSBUS DATA BUS PARITY ERROR-READ ONLY 
EAD ONLY 


Y TEST 
UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 


SEQ 0026 


a ee a eee, 


EE RE EE RE RY ee in 


Cy oe er er eee erareete et c-teeneneeersereeennneeeren o— 


CZ7RMQBO tS il DSKLS TST 2 
TRAP CAT 


CON O 


CHER 


000046 
000052 


000024 


. 2 
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~SBTTL TRAP CATCHER 


.=0 
>*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘',#2,HALT’’ 
:*SEQUENCE TO a ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION a CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: + LORD 0 ::SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 “SOFTWARE SWITCH REGISTER 


STARTING ADDRESS(ES) 

002732 JMP @ASTART 

002722 JMP @4START1 
~SBTTL ACT11 HOOKS 


FRAC AA AREAS REARAAAAEAEARRAAAEREEAAEREREREEHEREREAEEREE 


“HOOKS ee BY ACT11 
$ ;SAVE PC 


.SBTTL 


; CHANGE RH/RM BUS ADDRESS 


35c)SeT ot. - TO ZERO 
33 RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


2 TASER AAAAAAAAEAA STEER AAARAEARAERAEAAEREEAEARERARAREKEKREEREE 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
alanis: aapaige 2 mg og gl la emt 
~-$X=. ;;SAVE CURRENT LOCATION 
.=24 :;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 IFOR APT START UP 
.=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 
SAP TOR ; ;POINT TO APT HEADER BLOCK 
3:RESET LOCATION COUNTER 
,  wheneronseneraccesesteneerenaneeteceneceneceneeececeneceeserers 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


SAPTHD : 

SHIBTS: .WORD HIGH B OF 18 BIT MAILBOX ADDR. 

SMBADR: . WORD €SS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 2 7 RUN T T 

SPASTM: .WORD >;RUN T 

SUNITM: .WORD T 
. WORD 


TAGADR=, 


;;JUMP TO STARTING ADDRESS OF PROGRAM 


:21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


SEQ 0028 


ene - 


EE ES Sp 


‘'’ SL LS SGD cannes ew mnencemanes 


dD 3 
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COMMON TAGS SEQ 0029 


0 .SBTTL COMMON TAGS 


PSSA RERAATER EAA AATERTAEEERHAAEHEHAREREHEEHREHRHERANee eee 


SSTHIS TABLE ae Acne COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM 


001114 . = TAGADR 
001114 SCMTAG: ;iSTART OF COMMON TAGS 
001114 000000 «WORD 0 
001116 000 STSTNM: .BYTE QO i; CONTAINS THE ress NUMBER 
001117 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 
001120 000000 SICNT: 0 ;;CONTAINS SUBTEST ITERATION COUNT 
001122 000000 SLPADR: .WORD 0 ;: CONTAINS SCOPE LOOP ADDRESS 
001724 000000 SLPERR: .WORD Q ; CONTAINS SCOPE RETURN 
001126 000600 SERTTL: 0 ; ; CONTAINS ERRORS DETECTED 
001130 000 SITEMB: .BYTE 0 ;; CONTAINS I CONTROL BYT 
001131 001 SERMAX: .BYTE 1 ; CONTAINS MAX. ERRORS PER T 
001132 000000 SERRPC: .WORD 0 ;; CONTAINS PC OF LAST ERROR INSTRUCT ON 
001134 000000 SGDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ 
601136 000000 ADR: .WORD 0 :;CONTAINS ADDRESS OF ‘BAD’ DATA. 
001140 000000 SGDDAT: .WORD 0 ;;CONTAINS ‘GOOD’ DATA 
001142 000000 SBDDAT: .WwORD 0 i: CONTAINS "BAD" DATA 
001144 000000 -WORD 0 :RESERVED--NOT TO BE USED 
001146 000000 «WORD 0 
001150 COO SAUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
001151 000 SINTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 
001152 000000 «WORD 0Q 
001184 177570 SWR : -WORD DSWR : sADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP :sADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 : eTTy KBD STATUS 
001162 177562 $TKB: 177562 TTY KBD BUFFER 
001164 177564 STPS: 177564 SITTy PRINTER STATUS REG. ADDRESS 
001166 177566 STPB: 177566 77 TTY PRINTER BUFFER REG. 
001170 000 ; <a 8 $3 AINS CHARACTER FOR FILL 
001171 2 SFILLS: .BYTE 2 7: CONTAINS # OF FILLER CHARACTERS REQUIRED 
001172 012 SFILLC: .BYTE 12 Ra ot FILL CHARS. AFTER A “LINE FEED’ 
000 STPFLG: .BYTE 0 ERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
001174 000000 : WORD OQ ssUSER DEFI 
001176 00000 STMP1: .WORD 0 77USER DEFINED 
000000 STMP2: .WORD 0 Le DEF I 
001202 000000 STMPS: .WORD 0 7 USER DEFINED 
C01204 000000 TMP «WORD 0 ee DEF I 
1 000000 STIMES: 0 : MAX, R OF ITERATIONS 
001210 000000 SESCAPE :9 7; ESCAPE ON ERROR ADDRESS 
001212 207 377 377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR 
001216 077 S: .ASCI] /7?/ ; ;QUESTI 
001217 015 SCRLF: ..ASCII <15> ;; CARRIAGE RETURN 
001220 012 000 SLF : ASCIZ <12> :;LINE FEED 
J TAREE AAAAEARAARARERAAAEEAHERERRERAARAHRERARARERRKRERRERRE RRR ERS 
.SBITL APT MAILBOX-E TABLE 
FTAA A AAA AHEEARAEAERAREEAATAAAEAAERHAERARRRERARRRREKKRARE Ree Re 
-EVEN 
001222 SMAIL: MAILBOX 
001222 000000 SMSGTY: .WORD AMSGTY MESSAGE TYPE CODE 
001224 000000 SFATAL: .WORD AFATAL FATA L ERROR NUMBER 


001226 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 


LOLS CL A A ETE A te Se 
- a ee 


[ eee eee ee 
A re ee 


¢ZRMQBO RMOS/ 3/2 ‘oe TST 2 
AP T MAILBOX-€ TABL 


000 
009 


J 
~< 
m 
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AMAMS 1 
AMT YP 1 


e 3 
PAGE 6-1 


; ;;PASS COUNT 
: By) Oe COUNT 


YPE 
11/06=01, AL og O 4,/ eres. 11/40=04 ,11/45=05 
11/70=06,PD0=07 ,0=10 


BLKA 
MEM. TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC mos=003 








ADDRESS ,BLKA 
LAST ADDR. =3 evTes. THIS WORD AND LOW OF ‘“‘TYPE’’ ABOVE 
nai Asta M.S. BYTE 


YPE ,BL 
::MEM.LAST ADDRESS .BLK#2 
: HIGH ADDRESS,M.S.BYTE 
> MEM. TYPE BLKA3 | 
::MEM.LAST ADDRESS BLKA#3 
IGH ADDRESS.M.S.BYTE 
TYPE ,BLKAG 
LAST ADDRESS -BLKAG 
VECTOR#1 .BUS PRIORITY#1 
VECT OR#2BUS PRIORI TY#42 
SS OF EQUIPMENT UNDER TEST 


>sDEVICE MAP 

;; CONTROLLER DESCRIPTION WORD#1 
: CONTROLLER DESCRIPTION WORD#2 
:;DEVICE DESCRIPTOR 

at SS pe fata bh WORD#1 


Se te Se Se Be & 
Se Ge Be Be Se 


572 
::DEVICE DESCRIPTOR WORD#6 
; DEVICE DESCRIPTOR WORD#7 


sles les eerie 
LL ALL LL TE A CO ee ee 
SOL LE AN SNA He ee ite tts Sat ia ne —- - o-+ 


i eee 
' 


CZRMQBO RMOS/3/2 DSKLS TST 2 
USER DEFINED TAGS 
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~SBTTL USER DEFINED TAGS 


AUTSIZ: .WORD 
CHGADR: .WORD 
XXDP: . WORD 


LSTRK: .BYTE 
B 


sALLOW AUTO DRIVE SIZING = 0, USE MANUALLY INPUT DRIVES = 

; CHANGE RH/RM BUS ADDRESS = -1, CHANGE = 0 

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
OGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 


: THE PR 
;"XADP! DEVICE CODE FOR THE RMO5/3/2. 


BYT 
7H] BYTE, CONTAINS owt TRACK ADDRESS OF UNIT 
:UNDER TEST. RMO2/3 = , RMOS = 18. 


: THE REGISTER as IS USED FOR 


:STORING DRIVE STA 


GE TBUF : 


sREGISTER INPUT BUFFER 


RMCS1I: .WORD 
RMWCI: . 


RMBAI: .WORD 
Al: .WORD 
RMCS2I: .WORD 
RMDSI: .WORD 
RMER1I: .WORD 
RMASI: .WORD 
RMLAI: .WORD 
RMDBI: .WORD 
RMMR1TI: .WORD 
RMDTI: .WORD 
RMSNI: .WORD 
RMOFI: .WORD 
RMDCI: .WORD 
RMHRI: .WORD 
RMMR2ZI: .WORD 
RMERZI: .WORD 
RMECTI: .WORD 
RMEC2I: .WORD 
. WORD 

RMCS3I: .WORD 


OOOOOCooooooooooooo°o°o°0o 


:CONTROL, STATUS REGISTER 41 
; REGISTER 


D COUNT 


; WOR 
3h: ADDRESS REGISTER 


DISK ADDRESS REGISTER 
> CONTROL TUS REGISTER #2 
:DRIVE Status S$ REGIST ER 


ERROR REGISTE 
:ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 

;DATA_ BUFF 

MAINTENANCE epettien #1 
:DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
:OF FSET REGISTER 

;DESIRED ST pai REGISTER 


; HOLDING 
MAINTENANCE REGISTER #2 
sERROR REGISTER #2 


;ECC POSITION REGISTER 
sECC PATTERN REGISTER 
S_ADDRESS EXTENSION ~ gt ie 


BU 
:CONTROL, STATUS REGISTER # 


;THE REGISTER OUTPUT BUFFER IS USED FOR 
sASSEMBLING DATA GOING TO REGISTER 


sREGISTER OUTPUT BUFFER 
RMCS10: .WORD 


PUTBUF : 

RMWCO: .WORD 
RMBAO: .WORD 
RMDAO : “WORD 
RMCS20: .WORD 
RMDSO: .WORD 
RMER10: .WORD 
RMASO: .WORD 
RALAO: .WORD 
R : WOR 


MDBO: . D 
RMMR10: . WORD 


COOoOOOOOOSCOooOo 


; CONTROL , Bley REGISTER #i 
REGISTER 


: DISK agit REGISTER 
ROL, STATUS REGISTER #2 
:DRIVE STATUS REGISTER 


; LOOK aes REGISTER 
‘DATA BUFFER 
;MAINTENANCE REGISTER #1 


LLL LLL LL LLL LL EL OE AEN ia tt tlt: ttl. it te tty ee =. —— 


SEC 0031 


. 7 
/ C2ZRMQBO ae eae —— TST 2 MACRO V06.00 4=-APR=81 01:29:56 PAGE 7-1 
_ USER DEFINED T SEQ 0032 


001440 000000 RMDTO: WORD 8 ;DRIVE TYPE REGISTER 
001442 900000 RMSNO: .WORD SERIAL NUMBER REGISTER 
901444 000000 RMOFO: .WORD Q :OFFSET REGISTER . 
001446 000000 RMDCO: .WORD Q ;DESIRED CYLINDER REGISTER 
001450 000000 RMHRO: .WOR Q ;HOLDING REGISTER 
001452 000000 RMMR WORD 0 sMAINTENANCE REGISTER #2 
001454 000000 RMER2O: .WORD 0 ERROR REGISTER #2 
001456 000000 RMEC1O: .WORD 0 sECC POSITION REGISTER 
091460 000000 RMEC20: .WORD 0) sECC PATTERN REGISTER 
007462 000000 RMBAEO: .WORD 0 ;BUS ADDRESS EXTENSION REGISTER 
| 001464 000000 RMCS30: .WORD 0 CONTROL, STATUS REGISTER #3 


;EACH WORD OF THE TEST we Ane THE DEVICE NUMBER IN 

; THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD a THE ADDRESS OF THE DEVICE UNDER TEST 
[IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
sEND OF THE QUE. 


S 
> 
$ 


000000 TSTQUE: .WORD 0 ;CONTAINS DEVICE POINTER 
GO01470 -BLKW 8. ;TEST QUE FOR DEVICES UNDER TEST 
001510 000000 -WORD 0 : TABLE TERMINATOR GOES HERE WHEN 

sALL 8. DEVICES ARE UNDER TEST. 

001512 172540 SLPCSR: .WORD 172540 skW11-P CONTROL + STATUS REGISTER 
001514 172542 $LPCSB: .WORD 172542 ;KW11=P COUNT SET BUFFER 
001516 000104 SLPVEC: .WORD 104 ;KW11=P INTERRUPT VECTOR 
001520 000106 -WORD 106 
001522 177546 $LLCSR: .WORD 177546 sKW1l=L CONTROL + STATUS REGISTER 
001524 000100 SLLVEC: .WORD 100 7KW1l=-L INTERRUPT VECTOR 
001526 000102 -WORD 102 
001530 000000 $PSW: .WORD : STORAGE FOR PRIORITY 
001532 000000 TIME:  . WORD :STORAGE FOR ELAPSED TIME 
001534 000000 WATCH: .WORD STORAGE FOR REMAINING TIME 
001536 000000 CLOCK: .WORD sADDRESS OF START CLOCK SUB 
007540 0000CO STOPCL: .WORD ZADDRESS OF STOP CLOCK SUB 


;PUT TAGS HERE 


ee eee LL LOLLLL LLL LEAL LLL ELA eee a a ee mw ree eee 
OL LL SLE LEE A ET te tie tf ti tt ta ti ii ee ee ~* - 


Fr rr rere eerie eeennens 


CZRMQBO RMO5/3/2 DSKLS TST 2 
ERROR POINTER TABLE 


LAT 


awis 


032460 
040364 


032514 


032556 
640374 
040504 
040540 


~SBITL 


H 3 
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ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
: sLOCATION aia atte NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


: *NOTE2: 


* *# # * 


SERRTB: 


> ERROR 


: ERROR 


: ERROR 


Zz ERROR 


; ERROR 


; ERROR 





ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ER 


RPC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM ;;POINTS TO THE ERROR MESSAGE 
DH ;;POINTS TO THE DATA HEADER 
DT :;POINTS TO THE DATA 

DF ;:POINTS TO THE DATA FORMAT 


1 CANNOT CLEAR NED STATUS . 


2 CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 


3 CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


4 CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


5 CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


6 CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


LOD DL EOD HN B* BEET PON 6 ONDE one oe ee ~~“ — a+ 


SEQ 0033 


CZRMQBO RMOS/3/2 DSKLS TST 2 


FRROR POINTER TABLE 


032602 
040374 
040504 
040540 
032624 
040400 


040504 
040540 


032646 


032702 
000000 
000000 
000000 


032720 


s ERROR 


; ERROR 


; ERROR 


; ERROR 


: ERROR 


Z ERROR 


: ERROR 


EMT11 


EMT13 


- 
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CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


REGISTER SELECT 1 APPEARS S-A-0 


REGISTER SELECT 1 APPEARS S-A-1 


REGISTER SELECT 2 APPEARS S-A-0 


REGISTER SELECT 2 APPEARS S-A-1 


REGISTER SELECT 4 APPEARS S-A-0 


REGISTER SELECT 4 APPEARS S=A=1 


SEQ 0034 


CZRMQBO RMOS/3/2 DSKLS TST 2 
ERROR POINTER TABLE 


032754 
000000 
000000 
000000 


032772 
000000 
000000 
000000 


033010 
000000 
000000 
000000 


033026 
040364 


; ERROR 


ERROR 


ERROR 


sERROR 


zERROR 


zs ERROR 


z ERROR 


EMT15 
Q 
0 
0 


EMT17 


J 3 
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REGISTER SELECT 8 APPEARS S-A-0 


REGISTER SELECT 8 APPEARS S-A-1 


OPI SET WITH SFACH TIMOUT DISABLED 


OP] SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 


DTE SET WITH INDEX PULSE,SEARCH WAS NOT ENABLED 


DTE SET WITH SECTOR PULSE,SECTOR COMPARE WAS RESET 


DTE DID NOT SET WITH SECTOR PULSE,SECTOR COMPARE WAS SET 


rt pereeetteeed CL LE EE EEE NS ee nee ES DEE A OT EOE AR NE ee he 


SEQ 0035 


9g eee en. LE 
a 


rs mera were. 


CZRMQBO na hee a TST 2 
ERROR POINTER T 


033142 
040364 
040500 
040534 


033166 
040364 


033240 
040364 
040500 
040534 


033326 


ERROR 


s ERROR 


; ERROR 


Z ERROR 


Zs ERROR 


; ERROR 


; ERROR 


K 3 
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DTE SET WITH SECTOR PULSE DURING FORMAT CHANGE 


MBA CLR L IS STUCK ACTIVE 


COULD NOT SET DTE AFTER FORMAT CHANGE 


CANNOT SET PROM STROBE WITH BIT CLOCK 


CANNOT CLEAR RMER1,DTE 


PROM STROBE RESET EARLY 


PROM STROBE SET EARLY 


SEQ 0036 


ee ee +  ---- e ee 


2 
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ERROR POINTER TAB SEQ 0037 
002064 040364 EHT1 
002066 040500 EDT1 
002070 040534 EFT 
83 
84 sERROR 34 LOOKING FOR SYNC. SET EARLY 
002072 033340 EMT 34 
002074 040364 EHT1 
002076 040500 EDT1 
002100 040534 EFT 
86 
87 ERROR 35 LOOKING FOR SYNC DID NOT SET 
002102 033352 EMT35 
040 EHT} 
002106 040500 EDT1 
002110 040534 EFT 
89 
Ls ERROR 36 PROM STROBE SET WHILE LOOKING FOR SYNC 
002112 033364 EMT 36 
002114 040 EHT1 
002116 040500 EDT1 
002120 040534 EFT) 
92 
93 ERROR 37 SYNC DETECTED WITH WRONG PATTERN 
002122 033404 EMT37 
002124 040440 EHT115 
002126 040524 EDT115 
002130 040552 EFT115 
95 
96 zERROR 40 SYNC NOT DETECTED 
002132 033434 EMT4O 
002134 040364 
21 040500 EDT1 
002140 040534 EFT 
98 
99 zERROR 41 DRIVE TIMING ERROR DID NOT CLEAR LOOKING FOR SYNC 
002142 033456 EMT41 
002144 040 H 
002146 040500 EDT1 
002150 040534 EFT 
101 
Ls zERROR 42 WRITE GATE DID NOT COME ON OR RESET EARLY 
002152 033504 EMT42 
002154 040364 EHT1 


an LL LO A ee — <= —- - - - ~— ~ 


CZRMQBO RMOS/3/2 DSKLS TST 2 


——— ee —_— 


ERROR POINTER TABLE 


002156 
002160 





040500 
040534 


033522 
000000 


000600 
000000 


033522 
040400 
033554 
040364 


040500 
0405 34 


033570 
040564 


—— 
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; ERROR 


s ERROR 


; ERROR 


; ERROR 


Zz ERROR 


zs ERROR 


zs ERROR 


INCORRECT SYNC PATTERN DURING HEADER 


INCORRECT SYNC PATTERN DURING HEADER 


HEADER AREA DID NOT COME ON OR RESET EARLY 


CRC ENABLE DID NOT SET 


INCORRECT HEADER GENERATED DURING WRITE 


READ GATE INCORRECT DURING HEADER AREA 


UNEXPECTED HEADER ERROR DURING DIAGNOSTIC MODE 


SEQ 0038 


ee eee © CT I TS 
- — 


a 


CZRMQBO RMO5S/3/2 DSKLS TST 2 


ERROR POINTER TABLE 


002250 


040534 


033772 
040364 
040500 
040534 


oes asa. 


s ERROR 


; ERROR 


s ERROR 


; ERROR 


zs ERROR 


: ERROR 


; ERROR 


EFT1 





N 3 
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INCORRECT HEADER READ JIN DIAGNOSTIC MODE 


INCORRECT TAG BUS DURING DATA COMMAND 


DATA TIMING SEQUENCER CONTROLS INCORRECT DURING DATA COMMAND 


DATA AREA DID NOT COME ON OR RESET EARLY 


ECC ENABLE DID NOT SET 


DEVICE IS NOT AN RM05/3/2 


VEVICE AVAILABLE IS NOT SET 


SEQ 0039 


me se ee eee 


bo ete, sae 
— ES eT a — 
—) 





sERROR 61 


sERROR 62 


sERROR 63 


sERROR 64 


sERROR 65 


sERROR 66 


ERROR 67 


EMT67 
0 


Q 
0 


INCORRECT ECC PATTERN GENERATED DURING WRITE 


CANNOT CLEAR PROM STROBE WITH BIT CLOCK 


DATA AREA DID NOT RESET 


UNEXPECTED ECC ERROR IN CIAGNOSTIC MODE 


INCORRECT DATA TRANSFERRED TO MEMORY 


— CZRMQBO RMOS/3/2 apa.s TST 2 
: ERROR POINTER TAB 


034134 


C 4 
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ERROR 70 


EMT 70 
y) 


0 
0 


sERROR 71 


EMT71 
0 


0 
0 


ERROR 72 


EMT72 


sERROR 76 


EMT76 
0 


0 
0 


———— ore owrwen mn | ee ee 
~~ _ OF et Ce em < =< 


SEQ 0041 


LET OT 
meee ee Sistas ndessssstthsessnsensseeneetieennnatemesseeeerceeees- ee ae ee 


CZRMQBO RMO5/5/2 DSKLS TST 2 


ERROR POINTER TABLE 


034302 


ERROR 77 


s ERROR 


s ERROR 


7 ERROR 


s ERROR 


zERROR 


z ERROR 


: ERROR 


EMT?7 


102 


104 
EMT174 
0 

0 

0 

105 
EMT175 


D 4 
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CANT SET VOLUME VALID 


RUN AND GO WONT SET 


SEARCH ENABLE WONT SET 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 


READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


READ IN PRESET DIDNT CLEAR RMOF 


READ IN PRESET DIDNT CLEAR RMDA 


OS EE EE OE Ee ee A ee noes oe «- - ee - 


SEQ 0042 


CZRMQBO RMOS/3/2 DSKLS TST 2 


ERROR POINTER TABLE 


211 


002622 
002624 


218 
219 


036242 
040364 
040500 
0405 34 


s ERROR 


; ERROR 


sPUT ERROR TABLE HERE 


= 


110 
EMT 200 


E 4 
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PES | Ne 8 OU eee ee 


READ IN PRESET DIDNT CLEAR RMDC 


CANT SET OFFSET MODE 8Y OFFSET COMMAND 


Seem - ee + 


SEQ 0044 


eee — = ate — ‘ stints. cca 


et 


eee ee eee 


F 4 
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_ ERROR POINTER TABLE SEQ 0044 
} :THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 002642 011600 BADTMO: MOV (SP) ,RO :SAVE PC WHERE THE TIME OUT OCCURED 
4 002644 005740 TST =(RO5 ‘ADJUST PC = 
5 002646 022626 CMP (SP) +, (SP) + :RESTORE STACK POINTER 
6 002650 104401 002656 TYPE ,65$ si TYPE ASCIZ STRING 
002654 000417 BR 64$ GET OVER THE ASC17 
+:65$: .ASCIZ <CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 
002714 643: 
7 002714 010046 MOV RO,=(SP) :SETUP FOR TYPING OUT PC 
8 002716 104402 TYPOC 
9 002720 000240 NOP Pur "HALT(O)" INSTRUCTION HERE IF YOU WISH 
10 | ‘TO STOP ON UNEXPECTED TIMEOUT. 
12 .SBTTL START OF PROGRAM 
14 002722 012737 177777 001330 START1: MOV #=1, CHGADR : CHANGE RH/RM BUS ADDRESS 
15 002730 000402 BR START2 
17 C02732 005037 001330 START: CLR CHGADR :NO CHANGE IN ADDRESS 
18 002736 000240 START2: NOP 
19 002740 005227 000000 INC #0 :TTY LOOP, WAIT FOR INCREMENT 
20 002744 001375 BNE = : 
21 002746 000005 RESET sRESET THE WORLD 
23 .SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 
002750 012706 001114 MOV #SCMTAG,R6 : sFIRST LOCATION TO BE CLEARED 
002754 005026 CLR (R6)+ :CLEAR MEMORY LOCATION 
002756 022706 001154 CMP #SWR, RE 
002762 001374 BNE 6 * SLOOP. ‘pack 


002764 012706 001100 
002770 012737 peaete 000020 





IF NO 
MOV #STACK,SP ::SETUP THE STACK POINTER 
:; INITIALIZE A FEW VECTOR 
MOV #$SC COPE ae lOTVEC :310T VECTOR FOR SCOPE ROUTINE 


002776 012737 340 000022 MOV #340 ae lOTVEC +2 ::LEVEL 7 
012737 025752 MOV RROR ,awEMTVEC” :7EMT VECTOR FOR ERROR ROUTINE 

003012 012737 340 000032 MOV #340, aMEMTVEC+2 ::LEVEL 7 

003020 012737 031006 MOV #STRAP , a#TRAPVE :TRAP VECTOR FOR TRAP CALLS 

003026 012737 340 MOV #340, aa TRAPVE (+2; iit 

003034 012737 031114 000024 MOV ¢ POWER FAILURE VECTOR 

003042 012737 000340 000026 MOV #340, QPPURVEC +2 :sLEVEL 7 

003050 013737 021366 021360 MOV 33 END~OF -PROGRAM COUNTER 

003056 005037 001 CLR ;z INITIALIZE NUMBER OF ITERATIONS 
005037 001210 CLR ON ERROR ADDRESS 


se CLEAR THE ESCAPE 

003066 000001 001131 sALLOW ONE ERROR PER TE 

003074 012737 003074 001122 MOV #.,SLPADR :3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
001124 at LOOP ADDRESS 


003102 012737 003102 MOV PERR 
;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
“EQUAL TOA ‘=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @FERRVEC, ate) ERROR VECTOR 


003110 013746 000004 

003114 012737 003150 000004 MOV #64$ , AMERRVE ( SET UP ERROR VECTOR 

003122 612737 177570 901154 MOV #DSWR, SWR ae FOR A HARDWARE SWICH REGISTER 
012737 177570 001156 MOV #DDISP, DISPLAY iAND A HARDWARE DISPLAy REGISTER 

003136 022777 177777 176010 CMP 4-1 ,aSWR ;TRY TO 7 ta Tia HARD SwrR 

003144 001012 BNE 66S ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 


THE HARDWARE SWR IS NOT = =3 
003146 000403 BR 65$ : ;BRANCH IF NO TIMEOUT 


- ~~ oo eS eee Ses eee oe 20 e = 


SA cde mcm 


~ZRMQBO RMOS/ 3/2 LS TST 2 
INITIALIZE THE COMMON TAGS 


ee RED rea nner 


tenes CE LS | ec eS Sar oe tee ee 
LE EERE ee ee 


46 003500 


0127°6 
000002 


012737 


012737 
012737 


104407 


003156 
000176 
000174 
000004 
001230 
000200 
001244 


002642 
000300 


177777 
021530 
003260 


000042 
007242 
001154 


000091 


001332 
000016 


000040 
000007 
001332 
000042 


003444 


007332 


MACRO V04.00 


001243 
001154 


000004 
000006 


000042 


000001 
900176 


001150 


009041 


001332 
001332 


64$: 
65$: 
66$: 


G 4 
G=APR=81 01:29:56 PAGE 9-1 
SEQ 0045 


4] #65$, (SP) 3iSET UP FOR TRAP RETURN 


MOV #SWREG isPOINT TO SOFTWARE SwR 
MOV api sPREG DISPLA 
MOV (SP) + "aMERRVEC ”  :RESTORE ERROR VECTOR 


CLR $PASS >CLEAR PASS COUNT 
—* » SENVM i ITEST u's SIZE UNDER APT 


E NON-APT SWITCH 
MOV ASSWREG, SWR ;iNO,USE APT SWITCH REGISTER 


67$: 
; SETUP = TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 


ABADTMO,ERRVEC ;SETUP = UNEXPECTED TIMEOUT 


MOV WPR6,ERRVEC+2 LEVEL 
.SBITL TYPE PROGRAM NAME 
:: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC a=) ;rFIRST TIME? 
BNE 68s $3 CH IF NO 
CMP ASENDAD,Q4462 ;:ACT=11? 
BEQ 68$ : ;BRANCH IF YES 
TYPE ,69$ i: TYPE ASCIZ STRING 
BR $ OVER THE ASCIZ 
j 3698: .ASCIZ <CRLF>@CZRMOQBO - * BOOS /3y5 DISKLESS TEST. PT 2a<CRLF> 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ars2 ; ARE WE RUNNING UNDER XXDP/ACT? 
BNE 70$ > BRANCH IF YES 
CMPB ~—s- SENV, #71 ;3ARE WE RUNNING UNDER APT? 
BEQ 70$ > BRANCH IF YES 
CMP SUR .ASUREG :: SOF THARE SWITCH REG SELECTED? 
GTSWR ee >:GET SOFT-SWR SETTINGS 
708: MOVE  #1,$AUTOB 72SET AUTO-MODE INDICATOR 
: THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
[PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
CLR xX ;CLEAR "XXDP* LOAD DEVICE STORAGE 
(MPR s«#'16, #41 : LOADED FROM AN RMOS/3/2 ? 
BNE 5$ H IF NOT 
MOV a#60,XXDP “GET DEVICE INDICATOR AND NUMBER 
ore #7 «XDP iI IT A VALID NUMBER 
CLRB = KXDP NO. DEFAULT TO DRIVE 0 
1$: TST wAs2 =CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 33 *BR IF NEITHER 
TYPE 73$ i: TYPE ASCIZ STRING 
72$ GET OVER THE ASCIZ 
55738: ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -($P) :CLEAR WORD ON STACK 
MOVB  XXDP, (SP) “GET DRIVE ADDRESS 
TYPOS ‘i YPE THE ADDRESS 
[BYTE 1 “ONLY 1 CHARACTER 


SS eT STS sti Stiles ee esse stesso 
- - re 


H 4 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SFO 00: 
4? 003501 000 .BYTE 0 i SUPRE SS LEADING ZEROS 
48 003502 104401 (601217 TYPE SCRLF CRLF 
9 003506 000517 BR 5$ “GET NUMBER OF DRIVES 
§1 903510 005227 177777 3s: INC wa) :FIRST TIME THRU HERE ? 
52 003514 001114 BNE 5$ : 
53 003516 104401 003524 TYPE 75$ ii TYPE ASCIZ STRING 
003522 000410 BR 76$ T OVER THE ASCIZ 
-75$: .ASCIZ <CRLF>/TO TEST DRIVE / 
003544 oi 4$: 
| 54 003544 005046 CLR -(SP) :CLEAR WORD ON STACK 
55 003546 113716 001332 MOVB  XXDP, (SP) :GET DRIVE ADDRESS 
| 56 003552 104403 TYPOS : TYPE DRIVE ADDRESS 
| 57 003554 001 .BYTE 1 “ONLY 1 CHARACTER 
| 58 003555 000 BYTE 0 * SUPRESS LEADING ZEROS 
59 003556 104407 003554 TYPE 77$ ii TYPE ASCIZ ST RING 
003562 000431 BR 76$ *GET OVER THE ASCIZ 
hia 3778: .ASCIZ. /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<(RLF> 
60 603646 104401 003654 TYPE 78$ :: TYPE ASCIZ STRING 
003652 000435 BR 4 *:GET OVER THE ASCIZ 


a eASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRiF> 


re tt er renner ener eee ere eeeeeneenceneerreeeneenonune ener 


003746 S$: 
64 : CHECK FOR AUTO MODE OR STANDALONE 
65 003746 005037 001326 CLR AUTSI2Z :LET AUTO DRIVE SIZING, OCCUR 
66 003752 105737 001150 STB = $AUTOB [RUNNING IN AUTO MODE ? 
67 003756 001561 BEQ S TANDAL ONE “BR IF 
68 003760 012737 000377 001300 MOV #377, $DEVM :SET DEVICE MAP FOR ALL DRIVES 
70 ;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
71 003766 xSIZ: 
72 003766 132737 000200 001243 BITB #BIT7.SENVM ZSIZING ALLOWED ? 
z3 003774 001146 BNE 12$ :NO 
75 003776 005001 CLR R1 ;START FROM DRIVE 0 
76 004000 013700 001276 MOV SBASE ,RO [LOAD THE BASE ADDRESS 
a 004004 104401 032166 TYPE e>YSTAT s TYPE ‘UNIT STATUS:' 
79 004010 136137 032450 001300 18: BITB  ATNTBL(R1),.$DEVM z1S DEVICE PRESENT IN MAP ? 
80 004016 001531 BEQ 11$ :BR IF NO 
81 004020 104401 001217 TYPE  ,$CRLF *CR=LF 
82 004024 010146 MOV R1,~-(SP) 0 SAVE R1 FOR TYPEQUT 
004026 104403 TYPOS ::GO TYPE=-OCTAL ASCII 
004030 002 .BYTE 2 :3TYPE 2 DIGIT(S) 
004631 000 “BYTE 0 * SUPPRESS LEADING ZEROS 
83 004032 104401 032342 TYPE  ,BLNKS4 TYPE 4 BLANK 
85 004036 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR MASS BUS 
| 86 004044 010160 000010 MOV R1,RMCS2(RO) :LOAD THE DRIVE ADDRESS 
| 87 004050 005760 000012 TST RMDS (RO) *ACCESS DRIVE REGISTER 
| 88 004054 032760 010000 000010 BIT WNED,RMCS2(RO) IS DRIVE PRESENT 
89 004062 001051 BNE :BR IF 
| 032760 004000 000000 BIT WDVA,RMCS1(RO) :IS DRIVE AVAILABLE ? 
91 004072 001450 BEO 4$ “BR IF NO 
92 004074 012737 032204 004300 MOV #SRMO2, 10$ sASSUME RMO2 DEVICE 
| 93 004102 016002 000026 MOV RMDT(RO) .R2 ;SAVE DRIVE TYPE REGISTER IN R2 
| 9% 004106 022702 020025 (MP = #20025,,Re :SINGLE PORT RMO2 ? 
LL 


ee Ps nt ee ee re ee ——- ween — 
- =< —« --~: ore 18 OO ee ee ee seem - - 


S2838892 
EONORN 


Ome el el el ek Dm ed a ed cd ed ed 
VIwn & & 
On &M 


B8 seseseseee 


Ue 


EVEVNSRS 


: 


BSHVEAFAS AS SELKARERESSELP 
2 


eee et et ot le week ee ed ed ed dd od = od 


4 004234 


147 
142 004312 
143 004316 


CZRMQBO RMOS/3/2 DSKLS 
GET VALUE FOR SOFTWARE 


001430 


EE ST A AL er 


24025 


032211 
020024 


024024 


032216 
020027 


024027 
032223 
070000 


032261 
032276 
001326 
032450 
032315 


001332 
001332 
052244 


052526 


032344 


000007 


001217 
905004 


LILES AOL A TE OE A ey ee 


I 4 
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SWITCH REGISTER 


004 300 


004 300 


000012 


007300 


2s: 


3$: 


4$: 


S$: 


43%: 


7$: 


8$: 
9$: 


10$: 
11$: 


12$: 


SOLO OD, te ee ee ee mm 


e$ 
tele »R2 


;BR IF YES 
;DUAL PORT RMOD2 ? 
BR IF Y 


; ES 

#$RMO3, 10$ sASSUME RMO3 DEVICE 
#20024, “R2 i SINGLE PORT RMO3 7 
#26024 ,R2 “DUAL PORT RMO3 ? 

2$ : IF YES 

#$RMOS , 108 “ASSUME RMOS DEVICE 
#20027, “R2 i SINGLE PORT RMOS 
#24027,R2 :DUAL PORT RMOS ? 
.NOTRM “DRIVE NOT AN RM05/3/2 
i1$ :CHECK NEXT DRIVE 
AMOL,RMDS(RO) ;]S$ MEDIUM ON LINE ? 
6$ “BR IF NO 

7$ 

NOTPRS :DRIVE NOT PRESENT 

5$ :CHECK NEXT DRIVE 
,NOTAVL :DRIVE NOT AVAILABLE 
AUISIZ :AUTO S1Z1NG ON ? 
ATNTBL(R1).SDEVM’ CLEAR DEVICE FROM BIT map 
11$ :CHECK NEXT DRIVE 

UNTOF F :DRIVE OFFLINE 

5$ :PRINT DRIVE TYPE 

xXDP :LOADED FROM RMBO ? 
XXDP,R1 71S THIS THE DRIVE ? 

5$ 5 F NO 

gODEV :DRIVE IS LOAD DEVICE 
,UNTON :DRIVE ONi INE 

-BLNKS2 : TYPE 2 BLANK : 

*PRINT DRIVE TYPE 

0 [MESSAGE ADDRESS HERE 
R1 : INCREMENT THE DRIVE ADDRESS 
R1,#7 TALL DRIVES ARE CHECKED ? 
1$ CH IF NOT 

SSCRLF =CR=LF 

CMNSTART : JUMP TO COMMON START 


_——- Se ee es 


SEQ 0047 


ec eee ee 


004322 
22 


ODNAOVLS WN" OOD VO NFP wr -s 


Pye Se be teal Gee rte 
PAN : 
LN 
~™~ 
> 


25 004402 


HARUN LOO 
SeRESEEE 
EYSNSERM 


R 
° 


004737 


005227 
001023 


755 
113737 


C7RMQBO RMOS/3/2 DSKLS TST 2 
STANDALONE INPUT ROUTINES 


027422 
177777 


031556 


001176 
001176 


001176 
054636 


032356 
001217 


001330 


001330 
001217 


031607 
001276 


032344 
001176 
160000 
031617 
001176 
031661 
001272 
032344 
001176 
001000 
031670 
001176 


i «& 
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000731 


001176 


001276 


001176 


001272 


.SBITL STANDALONE INPUT ROUTINES 
S TANDAL ONE : 
JSR PC, $TKINT : INITIALIZE CONSOLE 
INC #-1 sFIRST TIME THRU HERE ? 
BNE 2$ “BR IF NO 
:SEE IF OPERATOR WANTS HELP TEXT 
TYPE ,MSHELP :WANT HELP ? 
RDCHR :GET RESPONSE 
MOV (SP)+,$TMP1 > SAVE AND ECHO RESPONSE 
CMB SIMPT.#'y :WwAS IT A YES RESPONSE ? 
TYPE .STMP1 “TYPE 'y! 
TYPE HELP “YES = TYPE HELP TEXT 
BR $$ 
1$: TYPE “N :TYPE ‘N* 
TYPE SCRLF 7 CR=LF 
$$ 
SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 
TST CHGADR : CHANGE RH/RM BUS ADDRESS ? 
BEO 7$ “BR IF 


CLR CHGADR :NO CHANGE NEXT TIME 
TYPE , SCRLF : CRLF 


oo TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


4$: 
5$: 


é$: 


ae -CNSLO1 ; TYPE CURRENT BUS ADDRESS 


SBASE ,~( SP) 7;SAVE SBASE FOR TYPEOUT 
TYPOC 33G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE -BLNKS2 sTYPE 2 BLANKS 
RDOCT ;GET NEW BUS ADDRESS 
MOV (SP)+, STMP1 : CARRIAGE RETURN ? 
BEQ 5$ :YES-SKIP TO NEXT ENTRY 


BASE ADDRESS IN 1/0 PAGE ? 


ov 
; TYPE WARNING MESSAGE 
; TRY AGAIN 

:STORE NEW BUS ADDRESS 


CMP + atta 
ge CNSLO2 

MOV STMP1 , SBASE 
TYPE ae 


CLR - 
Tne SVECT1, (SP) :GET CURRENT VECTOR ADDRESS 
TYPE -BLNKS2 ;TYPE 2 BLANKS 
RDOCT ;GET NEW VECTOR ADDRESS 
V (SP)+,$TMP1 CARRIAGE RETURN? 


MO 
BEQ 7$ ;YES-SKIP TO NEXT ENTRY 
CMP #1000,$TMP1 hs +k ADDRESS < 1000 ? 


BHI “YES! ! 
TYPE CNSLO4 : TYPE WARNING MESSAGE 
$TMP1,$VECT1  :STORE NEW VECTOR ADDRESS 


RE St SESE Se EE SR Ee Bee oe eee ae me —— a - 


SEQ 0048 


a ee ——-— — 
a ae em = = = 


eee eee 


CZRMQBO RMOS/3/2 DSKLS TST 2 


0 
101 004774 
102 065000 


_ STANDALONE INPUT ROUTINES 


177777 
031724 


032144 


001176 
007176 


031542 
000377 
003766 
001176 


001176 
001176 


001176 


001176 
001176 


031553 


K 4 
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000101 
001300 
000015 


000060 
000067 


000015 


7$ 


8$: 
9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


° yiamaen * TO mo ev tse NUMBERS 


#*C 

ATNTBL CRI) »SDEVM 
#377, ,SDEVM 
AUTS12 


-$SCRLF 
XSIZ 


‘BR IF TIME THRU ? 


R$ 
»CNSLO7 :TYPE INPUT INSTRUCTIONS 
$CRLF “CRLF 

$DEVM *CLEAR DEVICE MAP 
_MSDRVS :TYPE "DRIVE(S): ° 
(SP)+, STMPT :GET RESPONSE 

SINPT 4 "A :I1S INPUT ‘'A’’ ? 

, ALL :YES, TYPE ‘’ALL’’ AND GO 
#377, SDEVM *SET DEVICE MAP FOR ALL DRIVES 
XS12Z sAUTO SIZE. 

SINPI. ACR i CARRIAGE RETURN ? 
$TMP1 ‘ECHO RESPONSE 

STMP1 .#*0 {NUMBER < <0? 

STMP1.#'7 “NUMBER > 7 ? 

13$ :NO 

12$ : ILLEGAL INPUT 
(SP)+,$TMP1 :GET RESPONSE 

STMP1,ACR : CARRIAGE RETURN ? 

14$ :YES 

. COMMA ;TYPE *, ° 

$TMP1 sECHO RESPONSE 
$TMP1#°0 “NUMBER < 0 ? 

12$ YES 

STMP1.#°7 *NUMBER > 7 ? 

138 3;NO 

CNSLOB ZTYPE °* 27LLEGAL INPUT’’ 
$$ sRETRY 

STMP1 hl R1 = DRIVE NUMBER 


» rset DEVICE IN MAP 


"NO 
PR fy a AUTO SIZE WHEN TYPING DRIVE STATUS 
:GO SIZE DEVICES 


SEQ 0049 


' CZRMQBO RMOS/3/2 DSKLS TST 2 
STANDALONE INPUT ROUTINES 


L 4 
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sASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART: 


2 005004 
5 04401 032110 
4 005010 013700 001300 
5 005014 9001 
6 005016 104401 031553 
? 005022 104401 032137 
8 005026 012701 001470 
9 005032 010137 001466 
10 005036 012702 000001 
11 005042 005003 
12 005044 030200 
13 005046 0014135 
14 005050 104401 0315535 
15 005054 010311 
16 005056 010546 
005 104403 
005 001 
005 000 
17 GOS 116361 032450 
18 005072 062701 000002 
19 005076 006302 
20 005100 105702 
21 005102 001402 
005104 0052035 
23 005106 000756 
24 005110 005011 
25 005112 104401 001217 
28 005116 004737 021550 
0051 000425 
30 005124 104401 005132 
0051 000413 
0051 
31 005160 005737 000042 
32 005164 001002 
33 005166 000137 002732 
34 0051 000137 021520 
35 005176 000413 
37 005200 240 
38 005202 105737 001300 
005 001007 
40 005210 005737 000042 
41 005214 001002 
42 005216 000137 002732 
43 005222 000137 021520 
44 005226 
46 005226 105037 001116 
47 005232 005037 001206 
48 005236 004737 027422 
49 005242 012746 
005246 012746 005254 
005252 000002 


TYPE DRIVES :TYPE "DRIVE(S) TO BE TESTED’ 
MOV SDE VM. RO *RO = DEVICE MAP 
BNE “BR IF DRIVES TO TEST 
TYPE COMMA “TYPE *, * 
TYPE {NONE ;TYPE ‘NONE * 
1$: MOV #TSTQUE+2,R1 R1 = ADDRESS OF FIRST ENTRY IN QUE 
MOV R1, TSTQUE HINITIALIZE ENTRY POINTER 
MOV #1,R2 :R = DEVICE POINTER 
CLR R3 = DEVICE NUMBER 
2$: BIT Re RO 18 THIS DEVICE IN MAP ? 
TYPE COMMA TYPE 
V aso (R1) “YES - EwTeR DEVICE NUMBER IN QUE 
V R3_~(SP) ::SAVE R3 FOR TYPEOUT 
TYPOS ::G0 TYPE=-OCTAL ASCII 
.BYTE 1 i: TYPE 1 DIGIT(S) 
‘BYTE 0 ESS LEADING ZEROS 
000001 MOVB ATNTBL(R3),1(R1): ‘ ENVER ATTENTION BIT IN QUE 
ADD #2,R1 ‘ADVANCE ENTRY POINTER 
3$: ASL Re sADVANCE DEVICE POINTER 
TSIB = R2 :DONE ALL DEVICES ? 
BEOQ 4$ ; 
INC R3 : E DEVICE NUMBER 
BR 2$ SENTER NEXT DEVICE 
4$: CLR (R1) > TERMINATE TEST 
TYPE  ,$CRLF [TYPE CR=LF 
SIZE FOR CLOCK 
JSR PC, SIZCLK :SEE IF CLOCK PRESENT 
ZYES = CLOCK IS PRESENT 
TYPE ,65$ 13 TYPE ASCIZ STRING 
:2GET OVER | THE ASCIZ 
33658: ASCIZ <CRLF>/NO 'L’ OR *P* CLOCK/ 
TST ars2 :ANY MONITOR PRESENT ? 
BNE 54 “BR IF YES 
JMP START > JUMP TO STAR 
S$: JMP $GET42 *RE TURN CONTROL TO MONITOR 
6$: BR READY? 
READY: :READY TO START TEST 
TSTB = $DEVM sANY DRIVES IN MAP ? 
BNE 2$ sBR IF YES 
TST a42 *ANY MONITOR PRESENT ? 
BNE 1$ “BR IF YES 
JMP START : JUMP TO START 
18: JMP $GET42 “RETURN CONTROL TO MONITOR 
READY1: CLRB  $TSTNM sRESET TEST 
CLR STIMES ‘INITIALIZE NUMBER OF ITERATIONS 
JSR PC $TKINT s INITIALIZE TTY 
MOV #PRO, ~(SP) *:PUT NEW PS ON STACK 
MOV #64$.~(SP) *:PUT NEW PC ON STACK 
RT] *:POP NEW PC AND 





LE OO EE EES EE TO - 


SEQ 0050 


| 


e 908582 


117737 


tele 


013746 
104403 

002 

000 
005004 
005304 
001376 
005304 
001376 


CZRMQBO RMOS/3/2 DSKLS TST 2 
STANDALONE INPUT ROUTINES 


174206 


002000 
001276 
000040 
174160 
000026 
177770 
000007 


011000 


001217 
032160 
001234 


M 4 
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SEQ 0051 


64$: 
001234 MOVB ;LOAD DRIVE NUMBER 


;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK 
:OF THE DIFFERENT DRIVE TYPES 


001334 MOV A#TAG LSTRK + ASSUME LAST TRACK FOR RMO2/3 = 
MOV SBASE ,RO ;RO = UNIBUS A — ESS 


@TSTQUE ,SUNIT 


000010 MOV #CLR,RMCS2(RO) =CLEAR MAS 
000010 MOVE a7 STOUE -RMC MCS2(R (nO) SELECT DEVICE UNDER TEST 
BIC #177770, a + SAVE DRIVE TYPE BITS 
CMP #7 ,,R2 71S IT AN RMOS ? 
BNE 3s" ‘NO, must BE AN RMO2 OR RMO3 
001334 MOV HTA16!TA2,LSTRK :YES==SET PAST. TRACK = 18. 
: TYPE DRIVE NUMBER TO BE TESTED($UNIT) 
3$: TYPE .SCRLF : CRLF 
TYPE MSGDRV ‘TYPE "DRIVE’ 
MOV $UNIT,-(SP) *:SAVE SUNIT FOR TYPEOUT 
:: TYPE DRIVE 
TYPOS 33 PE=-OCTAL ASC 
.BYTE 2 sz TYPE 2 DIGIT(S) 
.BYTE 0 ; SS LEADING ZEROS 
CLR R4 : THESE TWO ARE D TO 
DEC RG sWAIT FOR TTY 
BNE .-2 
DEC Re 


LL A I i NS Ae at Na a ee ee ee a -- 


mee ee — 


| CZRMQBO RMOS/3/2 DSKLS TST 2 


REGISTER AND STORAGE USAGE 


4. =) ot dd 


MMNONMINMMMNY 
VROVRASWN Sooo NOAVSWN HO DO VNOuUfWwR oa 
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~SBTTL REGISTER AND STORAGE USAGE 
sREGISTER ASSIGNMENTS 


*RO 
RI 


“R2.R3 
=R4,R5 


=R6 
:R7 


UNIBUS ADDRESS OF RH CONTROLLER 

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING 10 THE 
UNIT UNDER TE 

WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 
SAVED BY S$ I 

Si By gle REGISTERS, ARE NOT SAVED BY 


SUBR NE 
STACK POINTER 
LINKAGE REGISTER TO SUBROUTINES 


: STORAGE ASSIGNMENTS 


: $TMPO-$TMP4 
= $GDDAT, SBDDAT 
> $GDADR, $BDADR 


“$TSTN 
;SUNIT 
;RGINBF 


> RGOTBF 


TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES 

ED STATUS FOR ERROR TYPEOUT 
RECEIVED STATUS IF APPLICABLE, 
REGISTER ERROR 


NUMBE EVI 
THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
pitt Lgl AND IS USED WHEN READING STATUS AND 


R HAS A STORAGE LOCATION FOR 
D FOR ASSEMBLING DATA TO BE 


z 
2 
é 
i 
a= 


I 
WRITTEN IN REGIST RS 


SEQ 0052 


SL . 


Ne 


—— 


42 005576 
43 005576 


000004 
000240 
012706 
013700 
013701 
012737 
012702 


012713 
032760 


001432 


000000 
010000 


001226 


600010 


001142 
001142 


001140 
001140 
001136 


000010 


‘Co! 


IRANOFER ICO! ‘ 


ee eee RRR RRR RRR RRR RRR RRR RR RE RE RE SEE ECC E RS ESCSSaS 


ré11: 


SCOPE 


SCOPE CALL 
ASTACK, SP ;LOAD THE STACK POINTER 
SBASE ,RO 7RO = UNIBUS ADDRESS 
TST QUE ,R1 :R1 = POINTER TO DEVICE 
#1,$TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
#0,R2 sR2 = REGISTER INDEX, 


4 THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 





JSR —- PC, CNTCLR :GO CLEAR CONTROLLER 

MOV RMES2CROD - SBDDA T STORE RMCS2 AT $BDDAT 

BIT § #NED, SBDDA 

BEQ 

MOVB = (R1) ,SGDDAT 

BIC #*CUNTMSK, SGDDAT 

BIS § #IR,$GDDAT 

Mov = RO, SBDADR 

ADD ——- #RMCS2, SBDADR 

EMT ssi | 

BR 
SREAD THE REGISTER, WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 
ZDOES NO T SET "NED"’ ERROR 

mov = — ROR ;R3 = REGISTER ADDRESS 

mov (RS) -RG :READ REGISTER, 

BIT = #NED,RMCS2<RO) "NED'* SET?? 

BEQ 70$ ENO! ! 

JSR ——- PC, CNTCLR :GO CLEAR CONTROLLER 

MOV §- RMCS2(RO) ,SBDDAT ;STORE RMCS2 AT SBDDAT 

BIT #NED. SBDDAT 

MOVB  §(R1), SGDDAT 

BIC  #*CUNTMSK ,SGDDAT 

BIS § #IR, SGDDAT 

MOV RO, SBDADR 

ADD —- #RMCS2, SBDADR 

EMT si 

BR 60$ 
WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
DOES NOT SET ‘NED’' ERROR 

Mov = #0, (R3) REGISTER 

BIT —-@NED-RMCS2(RO) 1 NED SET?? 

BEQ = 70 :NO! ! 


COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING “NED** ERROR - 


CZRMQBO RMOS/3/2 DSKLS 
TRANSFER TEST 


iene ti hee 


—— 


48 
49 
50 005612 


103257 


013737 


TST 2 


00000¢ 
000002 


000004 
000010 
000016 
000022 
000046 


001276 
021274 


000032 


177701 


C 
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001136 


001226 


001336 





sADVANCE THE REGISTER INDEX 
nm DEVICE REGISTER 
ADD #2,R2 
CMP ARMWC .R2 
BEQ 40$ 
CMP A#RMBA ,R2 
BEQ 40$ 
CMP #RMCS2,R2 
BEQ 403 
CMP ARMAS ,R2 
BEQ 40$ 
CMP #RMDB .R2 
BEQ 40$ 
CMP #RMEC? ,R2 
BHIS 10$ 


:GoT "NONEXISTENT DEVICE’ ERROR 
"MOV SBASE , SBDADR 
EMT 2 


AND REPEAT THE TEST FOR THE NEXT 


ADVANCE TO NEXT REGISTER 
IS RMWC?? 


: H 

H ~ TRY NEXT REGISTER 
i1$ 1 HIS RMBA?? 

7s". - TRY NEXT REGISTER 

71S THIS RMCS2?? 

4 ee - a“ ANOTHER REGISTER 
:YES = TRY ANOTHER REGISTER 

31S THIS RMDB?? 
;YES = TRY ANOTHER REGISTER 
71S THIS A LEGAL REGISTER 
;YES = TRY THIS REGISTER 


FOR EVERY REMOTE REGISTER ADDRESS 
STORE BASE ADDRESS 
3GO SELECT NEXT DEVICE 


J STARA AAAEAAAAAEHERERERERAEEAAEERAREEEAEARAEREARAEEAAEREAEEHE KES 


Cg TAA AAAAAAAAERAAEEAERAEAAAREAAARATAAAREREEAEAAREREERERERREEERRKEEEEE 


60$: JMP SEOSP 
70$: 
SSTEST é CTOD TEST 
tST2: 
SCOPE 
NOP 
MOV #STACK SP 
MOV 


E 
MOV TSTQUE ,R1 
MOV #2,$TESTN 


JSR PC.CNTCLR 


sWRITE ONES IN REMOTE REGISTERS 
MOV a 6,RMCS1 (RO) 
#-1 ,RMDACRO) 


MOV 
MOV #CYLMSK , RMDC (RO)* 


MOV #*CXNUOF , RMOF (RO) 


READ REMOTE REGISTERS TWICE 
MOV #1 ,R2 


10$: 
MOV RMCS1(RO),.RMCS1! 
MOV RMDA(RO) ,RMDA! 
RMDC (RO 


MOV ),RMDCI 
MOV ) ,RMOF | 
DEC 
BPL 10$ 

SEE IF ANY ONE BITS CAME BACK 
BIC #*CILF76,RMCS1I 


;SCOPE CALL 
7LOAD THE STACK POINTER 


:RO = UNIBUS SS 
:R1 ; POINTER TO DEVICE 
::SET TEST NUMBER IN APT MAIL BOX 


:GO CLEAR CONTROLLER 


sSTORE RMCS1 IN INPUT BUFFER 
s STON RMDA IN INPUT BUFFER 
7STORE RMDC IN INPUT BUFFER 
;STORE RMOF IN INPUT BUFFER 


:1S RMCS1 07? 


SEQ 0054 


-—_ ae 2 


D 
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C7 
To CTOD TEST SEQ 0055 
94 006026 001014 BNE 20$ NO! ! 
95 006030 005737 001344 TST RMDA! :1S RMDA 07? 
96 006034 00101 BNE 20$ ‘NO! ! 
97 006036 042737 176000 001372 BIC #XNUDC,RMDCI 31S RMDC 07? 
98 006044 001005 BNE NO! ! 
006046 042737 161577 001370 BIC #XNUOF ,RMOFI 31S RMOF 0 ?? 
100 006054 001001 BNE 20$ ‘NO! ! 
: CANNOT READ/WRITE A ONE FROM ANY REMOTE REGISTER 
103 006056 104003 EMT ‘ 
106 006060 20$: 
106 CARRERA ARR ARAEAERAETERAAAEA ARERR ERHEEERERHHHEEEEHEKRKHHEH 
CSTEST 3 MASSBUS INITIALIZE TEST 
CF REAR AERA AAARAAEKAER AERA AEEEAERAARERERREREEEEHEEEEEEEHHHREE 
006060 TST3: 
006060 000004 SCOPE :SCOPE CALL 
006062 000240 NOP 
606064 012706 001100 MOV #STACK sP ;LOAD THE STACK POINTER 
006570 013700 001276 MOV :RO = UNIBUS ADDRESS 
006074 013701 001466 MOV T reTOUE. 4 :R1 = POINTER TO DEVICE 
oa 006100 012737 000003 001226 MOV Hy STESTN :;SET TEST NUMBER IN APT MAIL BOX 
108 006106 004737 022404 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
110 :WRITE ONES IN SELECTED REGISTERS 
111 006112 012760 000076 000000 MOV #ILF76,RMCS1 (RO) :LOAD RMCS1 
112 006120 012760 177777 000014 MOV #=-1,RMER1(RO)  ;:LOAD RMERT : 
113 006126 012760 177777 0000462 MOV #-1-RMER2(RO) LOAD RMER2 
115 : INITIALIZE MASSBUS WITH A CLEAR 
16 006134 004737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
118 :READ THE REGISTERS THAT WERE WRITTEN 
119 006140 016037 000000 001336 MOV RMCS1(RO) “RECS :STORE RMCS1 IN INPUT BUFFER 
720 006146 016037 000014 001352 MOV RMER1(RO) .RMERT! >STORE RMER1 IN INPUT BUFFER 
121 006154 016037 000042 001400 MOV RMER2 (RO) .RMERZI >STORE RMER2 IN INPUT BUFFER 
123 :SEE IF ANY REGISTER BITS WERE CLEARED 
124 006162 052737 177701 001336 BIS #*CILF76,RMCS11 :SET ANY BIT NOT WRITTEN 
125 C06170 052737 001567 001400 BIS PXNUER?. RMER2] 
126 006176 022737 177777 001336 CMP #-1,.RMCS1I :ANY ZEROS IN RMCS1?? 
127 006204 001011 BNE 1 YES! ! . 
128 006206 022737 177777 001352 CMP #-1,.RMER1! [ANY ZEROS IN RMERI?? 
129 006214 001005 BNE YES! ! 
130 006216 022737 177777 001400 CMP #=-1,RMERZI “ANY ZEROS IN RMER2?? 
131 006224 001001 BNE 10$ 
133 :NONE OF THE BITS WERE CLEARED 
134 006226 104004 EMT 4 
1% 10$: 
137 SEAT EEE EREEEEEE REAR RARER ARERERRRRERER RE RRR E ERE 
' “ATEST 4 CLEAR STUCK ACTIVE TEST 
: SLATER AREER EAAEAERAAAHEERREAEARAEREKAAEERRREKRARR ERE REE Re 


E 5 
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-_— - - ee — _ 


Se SER eee eeeenene eens or 


————+ 





CLEAR STUCK ACTIVE TEST SEQ 0056 
006230 TST4: 
006230 000004 SCOPE :SCOPE CALL 
006232 000240 NOP 
006234 012706 001100 MOV #STACK, SP :LOAD THE STACK ppOINTER 
006240 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
006244 013701 001466 MOV TSTQUE ,R1 +R1 = POINTER 10 DEVICE 
006250 012737 4 001226 MOV #4 STESTN :;SET TEST NUMBER IN APT MAIL BOX 
i 
139 006256 004737 022404 JSR PC. CNTCLR :GO CLEAR CONTROLLER 
141 :WRITE ONES IN TEST REGISTERS 
142 006262 012760 177777 000014 MOV =1,RMER1(RO)  ;LOAD RMER1 
143 006270 012760 177777 000042 MOV #~1 .RMER2 (RO) “LOAD RMER2 
166 006276 012760 000024 MOV #DMD,RMMR1(RO) :LOAD RMMAR1 
146 :READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 
147 006 016037 000014 001352 MOV RMER1(RO),RMER1I STORE” RMER1 IN INPUT BUFFER 
148 006312 016037 000042 001400 MOV PMER2(RO) .RMER2! 7STORE RMER2 IN INPUT BUFFER 
149 006 016037 000024 001362 MOV 1(RO) .RMMR > STORE RMMR1 IN INPUT BUFFER 
150 C06 042737 040000 001352 BIC #UNS ,RMER I :DONT ACCEPT UNSAFE 
151 006334 0010117 BNE “BRANCH IF ANY OTHER BITS ON 
152 006336 042737 040200 001400 BIC #SKI'DVC,RMER2ZI] :DONT ACCEPT SKI OR DVC 
153 006344 00100 BNE 10$ {BRANCH IF ANY OTHER BITS ON 
154 006346 032737 000001 001362 BIT #DMD ,RMMR1] “BRANCH IF DMD IS ON 
155 006354 001001 BNE 10$ 
156 006356 104026 EMT 26 
157 006 360 108: 
159 FTA ARAAAAAE EA AAAAAARHERERATERERERERAREREERRAEREEEREREEEEEEEERERE 
<STEST 5 TRISTATE TRANSFER TEST 
JF RASA A SEERA TEER ARAAEAARAEREREAARAREEAEEAEEEAEERHEEEERED 
006360 TSTS: 
006360 SCOPE :SCOPE CALL 
006362 000240 NOP 
006364 012706 001100 MOV #STACK “P :LOAD THE STACK POINTER 
006370 013700 001276 MOV :RO = UNIBUS ADDRESS 
006374 013701 001466 MOV Telnet R1 *R1 = POINTER TO DEVICE 
006400 012737 5 001226 MOV #5. $TESIN >:SET TEST NUMBER IN APT MAIL BOX 
161 006406 005002 CLR R2 :CLEAR ERROR FLAGS 
162 006410 004737 022404 JSR PC.CNTCLR 7GO CLEAR CONTROLLER 
164 WRITE ONES IN SELECTED REGISTERS 
165 006414 012760 000076 000000 MOV #ILF76,RMCS1(RO) sLOAD RMCS1 
166 006422 012760 177777 000006 MOV #=1,RMDA(RO) =: LOAD RMDA 
167 006430 012760 177777 000014 MOV #-1,RMER1(RO) :LOAD RMER1 
68 006436 012760 177777 000032 MOV #-1-RMOF(RO)  : RMOF 
169 006444 012760 177777 000042 MOV #-1,RMER2(RO)  :LOAD RMER2 
171 WRITE ZEROS IN SELECTED REGIST 
172 006452 012760 000000 000000 MOV #O.RMCS1(RO) =: LOAD RMCS1 
173 012760 000000 000006 MOV #0. RMDA(RO) OAD RMDA 
174 006466 012760 000000 000014 MOV #O.RMER1(RO) § :LOAD RMER1 
175 006474 012760 000000 000032 MOV #0. RMOF (RO) “LOAD RMOF 
176 006502 012760 000000 000034 MOV #0 RMDC (RO) “LOAD RMDC 
177 006510 012760 000000 000042 MOV #O.RMER2(RO)  :LOAD RMER2 





a ee errr eee ene erm 


eS 


CZRAOBO RMO5/3/2 DSKLS TST 2 
T5 TRISTATE TRANSFER TEST 


178 

179 

180 006516 016037 000000 
181 006524 016037 000006 
182 0065 016037 000014 
183 006540 016037 000032 
184 006546 016037 000034 
i 006554 016037 000042 
187 

188 006562 012702 177777 
389 052737 177701 


20 

208 006700 0102357 001142 

005037 001140 
104005 

$5 006712 052702 000001 


004737 022404 


233 007032 016037 000034 





:.& 
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READ BACK ALL REGISTERS 
001336 MOV 1(RO) ,RMCS1I :STORE RMCS1 IN INPUT BUFFER 
001344 V RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
001352 MOV R1(ROS ,RMER11 :STORE RMER1 IN INPUT BUFFER 
001370 MOV RMOF (RO),RMOFI ;STORE RMOF IN INPUT ER 
001372 MOV RMDC(RO),RMDCI :STORE RMDC IN INPUT BUFFER 
001400 MOV RMER2 (RO) ,RMER2ZI- :STORE RMER2 IN INPUT BUFFER 
= CHECK EACH REGIST <R CONTENT FOR ZERO BITS WRITTEN & READ 
MOV ACCUMULATE ZEROS IN R2 
001336 BIS m-CiLF76, RMCS11 “SET ALL BITS NOT WRITTEN 
001370 BIS #XNUOF , RMOF I 
001372 BIS #XNUDCRMDC] 
001400 BIS #XNUERC , RMER2] 
COM RMCS1] : COMPLEMENT REGISTER CONTENTS 
COM RMDA | 
COM RMER1 I 
COM RMOF | 
COM RMDC I 
COM RMER2! 
BIC RMCS1],R2 sACCUMULATE ALL ZERO BITS 
BIC RMDAI.R 
BIC RMER1] .R2 
BIC RMOF I, 


;BRANCH IF EACH BIT IS ZERO 
:ONE OR MORE BIT ig Mo ARE NOT ZERO 
MOV Re, $BDDAT 


;SAVE RESULT FOR TYPE 
con ScDDAT ;LOAD EXPECTED RESULT 
BIS #BITO,R2 ;SET ERROR FLAG 
10$: 
JSR PC,CNICLR 3;GO CLEAR CONTROLLER 


sPRESET SELECTED REGISTERS TO ZEROS 
; (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 
MOV #0 (RO) OAD RMDA 


000906 : 
000032 MOV #0. RMOF (RO) LOAD RMOF 
000034 MOV #0. RMDC (RO) ST OAD RMD C 
;WRITE ONES IN SELECTED REGISTERS 
000000 MOV #ILF76,RMCS1(RO) :LOAD RMCS1 
000006 MOV #-1,RMDA(RO) LOAD RMDA 
000032 MOV #*CKNUOF , RMOF (RO) sLOAD RMOF 
000034 MOV #*CKNUDC .RMDC (RO) “LOAD RMDC 
000014 MOV #-1 MAMERS (ROD ‘LOAD RMERI 
000042 MOV #*CKNUER2, RMER2 (RO) sLOAD RMER2 
:READ ALL REGISTERS 
001336 MOV RMCS1(RO),RMCS1I :STORE RMCS1 IN INPUT BUFFER 
001344 MOV RMDA(RO),RMDA] ;STORE RMDA IN INPUT BUFFER 
001370 MOV RMOF (RO).RMOF! :STORE RMOF IN INPUT BUFFER 


001372 MOV RMDC(RO),RMDCI STORE RMDC IN INPUT BUFFER 


| ‘aataaaae RMO5/3/2 DSKLS TST 2 


TRISTATE TRANSFER TEST 


250 007142 
251 


252 
253 CO07144 
254 007150 


260 007170 
261 
262 007174 
' 007174 
264 
265 007200 
266 007204 
267 007210 
268 007214 
269 9007220 
270 


271 
272 007224 


2 

287 007312 
288 007314 
289 007316 


016037 
016037 


010237 
032737 


104006 
052702 


004737 


000014 
G00042 


177701 
161577 


001142 
177777 


000002 


000001 


022404 


G 
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001400 


001140 


001400 


MOV RMER1(RO),RMER1! :STORE RMER1 IN INPUT BUFFER 
MOV RMER2(RO) .RMER2] “STORE RMERZ IN INPUT BUFFER 
:CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
BIC W°CILF76,RMCS11 :CLEAR ALL BITS NOT WRITTEN 
BIC #XNUOF , RMOF I 
BIC #XNUDC > RMDC] 
BIC #XNUER2 ,RMERZ I 
CLR ;ACCUMULATE ONES IN R2 
BIS RMCS11,R2 sACCUMULATE ALL ONE BITS 
BIS AI ,R2 
BIS RMOF I .R2 
BIS RMDCI. 
BIS RMER11.R2 
BIS RMER21.R2 
CMP #-1,R2 : SEE IF EACH BIT POSITION WAS ONE 
BEQ 20$ : “BRANCH IF NONE STUCK 
ZONE OR MORE BIT POSIT LONS ARE NOT ONE 
MOV R2, $BDDAT :SAVE RESULT FOR TYPE 
MOV ai ,SGDDAT sEXPECTED RESULT 
il BIS wB1T1.R2 :SET ERROR FLAG 
TST R2 ZANY ERRORS DETECTED 2? 
BNE 30$ “YES = DONT DO BIT TEST 
MOV #1,R2 *R2=BIT POSITION 
253: 
JSR PC.CNTCLR :GO CLEAR CONTROLLER 
;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 
MOV R2,RMDA(RO) :LOAD RMDA 
MOV RMOF (RO) OAD RMOF 
MOV R2.RMDC (RO) *LOAD RMDC 
MOV R2,RMERT(RO) LOAD RMER1 
MOV R2.RMERZ(RO)  :LOAD RMERZ 
:READ BACK THE REGISTERS 
MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
MOV ),RMOFI :STORE RMOF IN INPUT BUFFER 
MOV RMDC(RO),.RMDCI :STORE RMDC IN INPUT BUFFER 
MOV RMER1 (RO) ,RMER1! :STORE RMER1 IN INPUT BUFFER 
MOV RMER2 (RO) .RMER2! :STORE RMER2 IN INPUT BUFFER 
:CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
CLR R3 R3=ACCUMULATED ONE BIT 
MOV #=1,R6 =RG=ACCUMULATED ZERO BITS 
MOV RMDAI.RS -GET ANY GOOD BITS FROM RMDA 
BIS R5,R3 
COM R5 
BIC R5,R4 
| MOV RMOF I ,.R5 :GET GOOD BITS FROM RMOF 
: BIC #XNUOF RS 
\ BIS R5_R3 
‘ COM 5 
BIC #XNUOF R5 


SEQ 0058 


- ZRMQBO 


290 007322 


311 007412 


323 007440 
324 007444 
325 


326 


RMO5S/3/2 DSKLS TST 2 
TRISTATE TRANSFER TEST 


601372 
176000 


176000 
001352 


001400 
001567 


001567 


007174 


001100 
001276 
00 


1466 
000006 


H 
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;GET GOOD BITS FROM RMDC 


;GET GOOD BITS FROM RMER1 


;GET GOOD BITS FROM RMER2 


sRESET ALL ONES IN R3 EXCEPT 
;FOR THE TEST BIT 


sRESET TEST BIT IN RG 
COMBINE ACCUMULATED 1°S + 0°S 
Es tet OK?? 


: :SAVE TEST PATTERN 
*SAVE RESULT 


;SKIP TO NEXT 


were R2 TO THE NEXT PATTERN AND REPEAT TEST 


:SHIFT THE BIT 
sEXIT IF DONE 


J TUE AAR AA ARREARS KEREREAAEAERAAAREERAREEARAEREREEE REED 


REGISTER SELECT TEST 


EEE EAEKRAAEEARERARAAAEEREETRAKEAAEAAEAKERARARAEEREERERAEREKRERKREERE EE 


MOV RMDC1,R5_ 
BIC #XNUDC RS 
BIS LR3 
COM RS 
BIC #XNUDC,R5 
BIC R5 RG 
MOV RMER11.R5 
BIS RS,R3 
COM 
BIC R5,R4 
MOV RMER21.R5 
BIC #XNUER2? RS 
BIS R3 
COM RS 
BIC #XNUER2,R5 
BIC R5,R4 
MOV R2,R5 
COM R5 
BIC R5,R3 
BIC "RS 
BIS R4,R3 
CMP R3_R2 
BEQ 26$ 
MOV R2,$GDDAT 
MOV R3, $BDDAT 
EMT ? 
BR 30$ 
ASL R2 
BEOQ 30$ 
IMP 25$ 

30$: 

:*TEST 6 

TST6: 
SCOPE 
NOP 
MOV #STACK,SP 
MOV $BASE ,RO 
MOV TSTQUE ,R1 

901226 MOV #6, $TESTN 


;SCOPE CALL 


;LOAD THE STACK POINTER 

;RO = UNIBUS ADDRESS 

;R1_ = POINTER TO DEVICE 

;;SET TEST NUMBER IN APT MAIL BOX 


; THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
sEACH DEVICE REGISTER 


: REGISTER 

; NAME 

: RMCS1 

; RMDS 
RMER1 


SEQ 0059 


ee eeeenee: 
a i 


_ 
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16 REGISTER SELECT TEST 
33? : RMMR1 00011 
33g RMAS 00100 
339 RMDA 00101 
340 : RMDT 00110 
341 RMLA 00111 
342 RMSN 01000 
34,3 RMOF 01001 
344 RMD C 01010 
! 345 RMHR 01011 
| 346 RMMR2 01100 
| 347 RMER? 01101 
| 348 RME C1 01110 
| 349 : RME C2 01111 
| 351 :EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE. 
352 “STUCK AT ZER . AS AN EXAMPLE, TO TEST REG SEL 1 
353 “FOR S-A-0, WRITTEN WITH ZEROS. THEN THE REGISTER 
354 :THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
| 355 “BEING TESTED, IS WRITTEN WITH ONES. IN THIS E B 
| 356 =RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 1S S-A-O. 
357 :THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMERT 
358 “WILL NOT BE 0 WHEN READ BACK. 
| 360 007472 005002 CLR R2 :R2= ZEROS SOURCE 
| 561 007474 012703 177777 MOV #-1,R3 [R3= ONES SOURCE 
565 :TEST REG SEL 1 FOR S-A-0 
365 007500 004737 022404 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
366 007504 010260 000014 MOV R2-RMERI(RO) = LOAD RMERI 
367 007510 010260 000034 MOV R2.RMDC (RO) [LOAD RMDC 
368 007514 010360 000024 MOV R3.RMMR1(RO)  :LOAD RMMRI 
369 007520 010360 000036 MOV R3,RMHR(RO) 
370 007524 016037 000014 001352 MOV RMER1(RO) ,RMER1 :STORE RMER1 IN INPUT BUFFER 
371 007532 016037 000034 001372 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
372 007540 020337 00135 CMP R3,RMER1 | 
373 007544 001007 BNE 
374 007546 052737 176000 001372 BIS XNUDC ,RMDC I 
375 007554 020337 001372 CMP R3,RMDCI 
376 007560 001001 BNE $ 
77 007 104010 EMT 10 
:TEST REG SEL 1 FOR S-A-1 
380 007564 10$: 
381 007 004737 022404 JSR PC.CNTCLR :GO CLEAR CONTROLLER 
382 007570 010260 MOV R2.RMDA(RO) *LOAD RMDA 
383 007574 010260 000032 MOV 2° RMOF (RO) RMOF 
007 010260 2 MOV R2.RMERZ(RO)  :LOAD RMER2 
385 007604 010360 000016 MOV 3° RMAS(RO) : RMAS 
386 007610 010360 000030 MOV R3.RMSN(RO) : RMSN 
387 007614 010360 0 MOV 3 2(RO) LOAD RMMR2 
007620 016037 000006 001344 MOV RMDA(RO),RMDAI :STORE RMDA IN INPUT BUFFER 
389 007626 016037 000032 001370 MOV RMOF (RO).RMOF! :STORE RMOF IN INPUT BUFFER 
0076 16037 000042 001400 MOV RMER2 (RO) ,RMER2] :STORE RMER2 IN INPUT BUFFER 
391 007642 020337 001344 CMP R3,RMDA] 
392 007646 001015 BNE 20$ 
393 007650 052737 161577 001370 BIS #XNUOF , RMOF | 





PSA EE EH ee ey a oe ee + 


CZRMQBO RMO5/3/2 DSKLS TST e 
T6 REGISTER SELECT TES 


eee Oe RS 
> ‘> * > 
& 8 


394 007656 
395 007662 
396 007664 
397 007672 


398 007676 
ret 007700 


Q1 
402 007702 
ry 007702 


421 010016 
422 


25 

424 010020 
425 010020 
426 010024 


433 010070 
434 010074 
435 010076 
436 010104 
437 010110 
438 010112 


440 
441 010114 


449 010150 
450 010156 


020337 
001007 
052737 
020337 


001001 
104011 





001370 


001567 
001400 


022404 


161577 
001370 


001567 
001400 
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001400 


001344 
001370 
001400 


001370 


001400 


sTEST REG SEL 2 


20$ 


EMT 


;TEST REG SEL 2 


30$ 


BNE 
EMT 


R3,RMOF | 
20$ 
#XNUER2,RMERZ] 
R3,RMERO] 
FOR S-A-0 
PC. CNTCLR :GO CLEAR CONTROLLER 
R2.RMDA(RO) “LOAD RMDA 
2 RMOF (RO) ‘LOAD RMOF 
R2,RMER2(RO) : LOAD RMER2 
R3.RMLA(RO) “LOAD RMLA 
3° RMHR(RO) “LOAD RMAR 
R3-RMEC2(RO) = LOAD RMEC2 
RADA (RO) ,RMDAI :STORE RMDA IN INPUT BUFFER 
RMOF (RO), RMOFI :STORE RMOF IN INPUT BUFFER 
MER? (RO) TAMER?! : STORE RMER2 IN INPUT BUFFER 
R3,RMDAI 
80g 
#XNUOF zRMOF I 
3 .RMO FI 
#XNUER2,RMER2Z] 
R3,RMER2] 
30$ 
12 
FOR S-A-1 
PC, CNTCLR :GO CLEAR CONTROLLER 


R2.RMER1 (RO) LOAD RMER1 
Re, (RO) RMDC 
sILE76. -RMCS1 (RO) ;LOAD RMCS1 


RMER1 (RO) .RMER1 >STORE RMER1 IN INPUT BUFFER 
RMDC(RO),RMDCI :STORE RMDC IN INPUT BUFFER 
#*CILF 76, RMERII 
RS RMER1I 
AXNUDC, "y eae 
R3,RMD 
lg 
13 
FOR S-A-0 
PC. CNICLR 3;G0 CLEAR CONTROLLER 
R2,RMER1 (RO) ;LOAD RMER1 
R2,RMOF (RO) ;LOAD RMOF 
R2-RMDC (RO) “LOAD RMDC 
R5,RMDT CRO) ;LOAD RMDT 
3,RMERZ(RO) LOAD RMER2 
R3-RMEC1(RO)  :LOAD RMEC1 
RMER1(RO),RMER sSTORE RMER1 IN INPUT BUFFER 
RMOF (RO) ,RMOF | STORE RMOF IN INPUT BUFFER 


SEQ 0061 


rn 
OS si Tt nt te enter te 
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| 16 REGISTER SELECT TE SEO 0062 
451 010164 016037 000034 001372 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
452 010172 020337 601352 CMP R3,RMER1 | 
453 910176 001015 BNE 50$ 
454 010200 052737 161577 001370 BIS #XNUOF gRMOF 1 
455 010206 020337 001370 CMP R3.R 
456 010212 001007 BNE 
457 010214 052737 176000 001372 BIS WXNUDC ,RMDCI 
458 010222 020337 001372 CMP R3,RMDCI 
459 010226 001001 BNE 50$ 
460 010230 104014 EMT 14 
462 . -TEST REG SEL 4 FOR S=A-1 
463 010232 50$: 

464 010232 004737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 

465 010236 010260 000006 MOV R2.RMDA (RO) “LOAD RMDA 

466 010242 010260 000042 MOV R2,RMER2(RO)  §: LOAD RMER2 

467 010246 01 000012 MOV R3,RMDS ( >LOAD RMDS 

468 010252 010360 000032 MOV 3° RMOF (RO) “LOAD RMOF 

469 010256 016037 000006 001344 MOV RMDA(RO),RMDAI STORE RMDA IN INPUT BUFFER 
470 010264 016037 000042 001400 MOV RMER2 (RO) ,RMER21 :STORE RMER2 IN INPUT BUFFER 
471 010272 020337 001344 CMP R3,RMDAI 

472 010276 001007 BNE 

473 010300 052737 001567 001400 BIS #XNUER2 ,RMER2! 

474 010306 020337 001400 CMP R3,RMER?] 

475 010312 001001 BNE 60$ 

426 010314 104015 EMT 15 

478 :TEST REG SEL 8 FOR S-A-0 

479 010316 60$: 

480 010316 604737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 

481 010322 010260 000014 MOV R2,RMER1(RO)  :LOAD RMERT 

482 010326 010260 000006 MOV R2.RMDA(RO) [LOAD RMDA 

483 010332 010360 000034 MOV R3.RMDC(RO) [LOAD RMDC 

484 010336 010360 000042 MOV R3,RMERZ(RO)  :LOAD RMER2 

485 010342 016037 000014 001352 MOV RMERT (RO) .RMERTI ;STORE RMER1 IN INPUT BUFFER 
486 010350 016037 000006 001344 MOV RMDA(RO) .RMDAI ;STORE RMDA IN INPUT BUFFER 
487 010356 020337 001352 CMP R3,RMER1I 

488 010362 001004 BNE 

489 010364 020337 001344 CMP R3_RMDAI 

490 010370 001001 BNE 70$ 

491 010372 104016 EMT 16 

493 -TEST REG SEL 8 FOR S~A-1 

494 010374 70$: 

495 010374 004737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 

496 010400 010260 000032 MOV R2, RMOF (RO) *LOAD RMOF 

497 010404 010260 MOV R2.RMDC ( *LOAD RMDC 

498 016410 010260 000042 MOV Re -RMER2 (RO) “LOAD RMER2 

499 010414 010360 000012 MOV R3_~RMDS (RO) *LOAD RMDS 

500 010420 010360 000014 MOV R3.RMER' (RO) ; LOAD RMER1 

501 010424 010360 000006 MOV R3,RMDA (RO) RMDA 

502 010430 016037 000032 001370 MOV RMOF (RO).RMOFI STORE RMOF IN INPUT BUFFER 
503 010436 016037 000034 001372 MOV RMDC(RO).RMDCI :STORE RMDC IN INPUT BUFFER 
504 010444 016037 000042 001490 MOV RMER2 (RO), RMER21 :STORE RMER2 IN INPUT BUFFER 
505 010452 052737 161577 001370 BIS #XNUOF , RMOF | 

506 010460 001015 BNE 


101 
507 010462 022737 176000 001372 CMP AXNUDC ,RMDC] 





| L 
_ CZ2RMQBO RMO5/3/2 DSKLS TST 2 MACRO V04.00 4=APR=81 01:29:56 PAGE 13-10 


16 REGISTER SELECT TEST SEQ 0063 
| 508 010479 020337 001372 CMP R3,RMDC! 
| 509 010474 001007 BNE 
| 510 010476 052737 001567 001400 BIS #XNUER2, RMER2Z] 
| 511 010504 020337 001400 CMP = R3, RMER21 
| 512 010510 001001 BNE 80$ 
| 513 010512 104017 EMT 17 
| 514 010514 80$: 
| 28 :REGISTER SELECT 16 IS TESTED BY THE ILR TEST 
| 518 SATAN EAEE EERE ARERRERREERRHERERRREHEEREREEHKEKKKKhE 
SRTEST 7 DRIVE TYPE TEST 
| CC RARER ARR AAEAAAE AERA EAERAREREEREAAREEREEEEREHERREERHHKEKEHE 
010514 TST7: 
010514 000004 SCOPE :SCOPE CALL 
010516 000240 NOP 
010520 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
010524 013700 001276 MOV SBASE . RO :RO = UNIBUS ADDRESS 
010530 013701 001466 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
. 010534 012737 060007 001226 MOV #7, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
520 010542 016002 000026 MOV RMDT (RO) .R2 :STORE RMDT AT R2 
521 010546 022702 020024 CMP #SNGPRT ,R2 ; SINGL E PORT RMO3 ? 
522 010552 001431 BEQ 10$ “YES ! 
523 010554 022702 024024 CMP #DULPRT ,R2 > DUAL "PORT RMO3 ? 
326 010560 001426 BEQ 10$ “YES !! 
526 010562 022702 020025 CMP #SNGPRT ‘!BITO,R2 i SINGLE PORT RMO2 ? 
527 010566 001423 BEQ 
528 010570 022702 024025 CMP ADULPRT '!BITO.R2 =DUAL ‘bon RMO2 ? 
529 010574 001420 BEQ 10$ YES 
531 010576 022702 020027 CMP WSNGPRT!BIT1!BITO.R2  ;SINGLE PORT RMOS ? 
532 010602 001415 BEQ 10$ “YES ! 
010604 022702 024027 CMP MDULPRT'BITI!BITO.R2  :DUAL "PORT RMOS ? 
534 010610 001412 BEQ 10$ 
536 010612 010237 001142 MOV R2,SBDDAT :GET RECIEVED DRIVE TYPE 
537 010616 010037 001136 MOV RO, SBDADR “LOAD BAD ADDRESS 
538 010622 062737 000026 001136 ADD #RMDT , SBDADR y 
539 010630 104057 EMT 57 
540 010632 000137 021274 JMP SEOSP :GO TO NEXT DEVICE 
541 010636 10$: 
543 SAREE EAE REE ERE EERE EAA RARERRERRAERERAA ARERR ARERR ERR EERE 
“STEST 10 DEVICE AVAILABLE TEST 
J TEAR AERA EREEEERAEEAEREAREAEAEARERERERERAAAAEREEREREEE 
010636 TST10: 
010636 000004 SCOPE :SCOPE CALL 
010640 NOP 
010642 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
010646 013700 001276 MOV S$BASE , RO :RO = UNIBUS ADDRESS 
010652 013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
010656 012737 000010 001226 MOV #10, $TESTN *:SET TEST NUMBER IN APT MAIL BOX 


544 
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' 110 DEVICE AVAILABLE TEST SEQ 0064 
| 545 010664 737 022404 JSR PC, CNT :GO CLEAR CONTROLLER 
! 546 010670 016037 G600000 001142 MOV RMCST CRO, $BDDAT’ s STORE RMC ST AT $BDDAT 
| 547 010676 042737 173777 001142 BIC #°CDVA,$BDDAT  ;CLEAR ALL BUT DVA 
| 548 010704 001006 BNE 10$ ‘BRANCH IF DVA SET 
| 549 010706 012737 004000 001140 MOV #DVA, SGDDAT :SETUP EXPECTED 
550 010714 010037 001136 MOV RO, $BDADR :SETUP REG ADDRESS 
| 551 010720 104060 EMT 
| 352 010722 108: 
554 PERRET EAT ERRATA 
“TEST 11 SEARCH TIMEOUT TEST 
fC AAR AAR AAR RATA ERATE 
010722 TST11: 
010722 SCOPE :SCOPE CALL 
010724 000240 NOP 
010726 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
010732 013700 001276 MOV S$BASE ,RO = UNIBUS ADDRESS 
010736 013701 001466 MOV TSTQUE ,R1 “R1 = POINTER TO DEVICE 
610742 012737 000011 001226 MOV #11, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
:LOAD REGISTER OUTPUT BUFFER WITH COMMAND PARAMETERS 
557 010750 012737 000000 001420 MOV #0,RMDAO : SECTOR=0=TRACK 
558 010756 012737 000000 001446 MOV #0,RMDCO : YLINDER=0 
559 010764 012737 010000 091444 MOV #FMT16,RMOFO 316 BIT FORMAT 
010 012737 054636 001416 MOV #BUF FER, RMBAO ; STARTING BUFFER ADDRESS 
561 011000 012737 177777 001414 MOV #~1 ,RMWCO 
562 011006 012737 000061 001412 MOV #WD' GO, RMCS10 “WRITE DATA COMMAND 
564 011014 004737 022432 JSR PC,ENBSCH ;EXECUTE DATA COMMAND TO POINT WHERE 
SEARCH IS ENABLED USING SUBROUTINE. 
011020 000402 BR 10$ “BRANCH TO 10$ IF NO ERROR 
011022 104000 EMT 
565 011024 000462 BR 50$ :SLOC REST PF TEST 
:START THE CLOCK AND WAIT FOR 100 MS 
568 011026 10$: 
569 011026 012737 000144 001534 MOV #100. .WATCH :SET WATCHDOG TIMER VALUE 
011 777 (170476 JSR PC ,acLOck ‘START THE CLOCK 
570 011040 005737 001534 208: TST WATCH 
571 011044 001375 BNE 
572 011046 170466 JSR PC, aSTOPCL :STOP THE CLOCK 
: VERIFY THAT OP] alse NOT SET (SEARCH TIMEOUT IS DISABLED) 
575 011052 016037 14 001142 MOV (RO), SBDDA j STORE RMER1 At SBDDAT 
576 011060 010037 001136 MOV ROS R ser UP FOR ERROR MS 
577 011064 062737 000014 001136 ADD #RMER1 , SBDADR 
578 011072 042737 157777 001142 BIC #*COPI, $BDDAT 
579 011100 001404 BEQ 30$ ;BRANCH IF NO ERROR 
580 011102 005037 001140 CLR SGDDAT 
581 011106 104020 EMT 20 
582 : DISABLED 
583 011110 000430 BR 50$ “SKIP 
585 “ENABLE SEARCH TIMEOUT, THEN WAIT 100 MS 
586 011112 30$: 
587 011112 012760 041401 000024 MOV #DMD ! MUR! DBEN! MOC ,RMMR1 (RO) sLOAD RMMR1 
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604 0 
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607 
608 011236 
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001534 MOV #100. ,WATCH :SET WATCHDOG TIMER VALUE 
JSR PC, aCLOCk “START THE CLOCK 
40$: TST WATCH 
BNE 40$ 
JSR PC, aSTOPCL :STOP THE CLOCK 
:OPI SHOULD NOW BE SET (SEARCH TIMEOUT IS ENABLED) 
001142 MOV RMER1 (RO), $BDDAT :STORE RMER1 AT $BDDAT 
001142 BIC #*COPI,$BDDAT 
BNE 50 
001140 MOV #OP1,$GDDAT 
EMT 21 
50$: 
Co RRA ERARREAAKARAEERAERAEATAEEEAAEAEREERHEEREREHEEERREERERRRERKKEKKKKhh 
= *TEST 12 SET DTE TEST 
z 2 'MAASAASRSASAAASASAASAALSALASLALERSE SEES EES SESE CCC OSE LESS ALASLALALLALALLEL SE | 
TST12: 
SCOPE :SCOPE CALL 
MOV #STACK,SP sLOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
001226 MOV #12,$TESTIN ::SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR ;SETUP ERROR MSG 
001136 ADD #RMER1, SBDADR 
CLR SGDDAT 
: INITILAIZE AND VERIFY THAT DRIVE TIMING ERROR IS RESET 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
001142 MOV RMER1 (RO), SBDDAT :STORE RMER1 AT SBDDAT 
001142 BIC #°CDTE, SBDDAT 
BEQ 10$ :BRANCH IF DTE=0 
EMT 31 
BR 50$ :SKIP REST OF TEST 
:SET MAINTENANCE INDEX PULSE AND VERIFY DTE REMAINS RESET 
000024 "MOV #DMD,RMMR1(RO) :LOAD RMMR1 
000024 MOV #DMD MI, RMMR1 AE ia :LOAD RMMR1 
001142 MOV RMER1 (RO). $BDDAT >STORE RMER1 AT SBDDAT 
001142 BIC #*CDTE, SBDDAT 
.™ 
BR 50$ :COMPARE SHOULD BE RESET 
SEXECUTE DUMMY DATA COMMAND TO ENABLE SEARCH 
001420 "MOY #0,.RMDAO 
001446 MOV #5,RMDCO 
001444 MOV #FMT16, RMOFO 
001416 MOV #BUF FER, RMBAO 
001414 MOV #-1,RMWCO 
001412 MOV D160" RMCS10 


SEQ 0065 


f eee NR ee 
Se a oe 


635 011366 004737 0622432 JSR PC,ENBSCH i EXECUTE DATA COMMAND TO POINT WHERE 
;SEARCH IS ENABLED USING SUBROUTINE. 






011372 000402 BR 30$ ‘BRANCH TO 30$ IF NO ERROR 
911374 104000 EMT 
636 011376 000451 BR 50$ 
38 :WITH SEARCH ENABLED, SET AND RESET SECTOR PULSE TO SET ENABLE 
639 EARCH FLOP. 
640 011400 30$: 
641 011400 012760 051441 000024 MOV § * #DMD 'MUR! DBEN! MOC 'MSEN!MS .RMMR1 (RO) : LOA RMMR 1 
a2 011406 012760 051401 000024 MOV #DMD ! MUR | DBEN! MOC 'MSEN, RMMR1 (RO) “LOAD RMMRI 
644 :SET SECTOR PULSE AND VERIFY DTE DOES NOT SET 
645 : PUTMR1 #DMD!MUR!DBEN!MOC !MSEN!MS 
646 : PUTMR1 #DMD' MUR! DBEN'MOC IMSEN 
648 011414 016037 000014 001142 MOV RMER1(RO), SBDDAT :STORE RMER1 AT $B8DDAT 
649 011422 042737 167-7? 001142 BIC #*CDTE, SBDDA 
650 C11430 007402 BEQ 40$ 
651 011432 104023 EMT 23 
652 011434 001432 BEQ 50$ : COMPARE SHOULD BE RESET 
654 :FORCE SECTOR COMPARE 
655 011436 40$: 
656 011436 012760 051403 000024 MOV #DMD !MUR'DBEN!MOC!MSEN/MSC,RMMR1(RO)  § :LOAD RMMRT 
657 011444 012760 051443 000024 MOV #DMD ! MUR ! DBEN! MOC !MSEN! MSC'MS .RMMR1(RO) =LOAD RMMR1 
658 011452 012760 051403 000024 MOV #DMD!MUR'DBEN'MOC'MSEN'MSC.RMMR1(RO) § :LOAD RMMRT 
660 :SET SECTOR PULSE AND VERIFY DTE SETS 
661 911460 012760 051441 000024 MOV #DMD ' MUR ' DBEN!MOC 'MSEN! MS, RIPR (RO) ;LOAD RMMRI 
662 011466 012760 051401 000024 MOV #DMD ' MUR ' DBEN'MOC 'MSEN. RMMR1 (RO) LOAD RMMR1 
663 011474 016037 000014 001142 MOV RMER1 (RO), SBDDAT STORE RMER1 AT $BDDAT 
664 011502 042737 167777 001142 BIC #*CDTE, SBDDAT 
665 011510 001004 BNE 
666 011512 012737 010000 001142 MOV #DTE, SBDDAT 
667 011520 104024 EMT 24 
668 :SECTOR COMPARE SET 
669 011522 508: 
671 LEAR ARAAAERERAARRAARAAHAAERAEREERERERAREREERERERERRE RARER REE 
<STEST 13 FORMAT CHANGE TEST 
“ g AERA AEARAEERAAERAEAAREREAAAAAARAAAAEHERRECRAAERKEREEREREER 
011522 1S113: 
011522 000004 SCOPE :SCOPE CALL 
011524 000240 NOP 
011526 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
011532 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
011536 013701 001466 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
- 011542 012737 000013 001226 MOV #13, $TESTIN ::SET TEST NUMBER IN APT MAIL BOX 
673 011550 012702 012100 MOY #50$,R2 :R2=TABLE POINTER 
675 areas {INITILAIZE AND SET THE FORMAT BIT, USE INDEX PULSE TO CLEAR FORMAT CHANGE 
677 011554 004737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
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SEQ 0067 
678 011560 011260 000032 MOV (R2),RMOF(RO)  ;LOAD FORMAT MODE IN RMOF 
679 011564 012760 600001 000024 MOV #DMD.RMMR1(RO) “LOAD RMMR1 
680 011572 012760 000005 000024 MOV #DMD ‘M1 ,RMMR1 (ROS :LOAD RMMR1 
682 :SETUP AND EXECUTE DUMMY DATA COMMAND USING OPPOSITE FORMAT 
683 011600 072737 000000 001420 MOV #0,RMDAO 
011606 012737 000005 001446 MOV #5 .RMDCO 
685 011614 016237 000002 001444 MOV 2(R2) , RMOFO 
011622 012737 054636 001416 MOV #BUF F ER, RMBAO 
687 011630 012737 177777 001414 MOV #~ i ,RMWCO 
088 011636 012737 000061 001412 MOV #wD 'GO.RMCS10 
690 011644 004737 022432 JSR PC, ENBSCH :EXECUTE DATA COMMAND TO POINT WHERE 
[SEARCH 1S ENABLED USING SUBROUTINE. 
011650 000402 BR 20$ “BRANCH TO 20$ IF NO ERROR 
011652 104000 EMT 
691 011654 000514 BR 60$ 
693 FORMAT CHANGE FLOP SHOULD BE SET - VERIFY BY TRYING TO FORCE A 
694 sens ;DRIVE TIMING ERROR WHICH SHOULD NOT SET. 
696 011656 012760 051403 000024 MOV #DMD !MUR'DBEN'MOC'MSEN/MSC,RMMR1(RO) §: LOAD RMMR1 
697 011664 012760 051443 000024 MOV #DMD ' MUR ' DBEN!MOC 'MSEN'/MSC'MS,RMMR1(RO) =LOAD RMMR1 
698 011672 012760 051403 000024 MOV #DMD ! MUR! DBEN! MOC !MSEN!MSC .RMMR1 (RO) =LOAD RMMR1 
699 011700 012760 051401 000024 MOV #DMD ! MUR ' DBEN' MOC 'MSEN, RMMR1 (RO) “LOAD RMMR1 
701 :VERIFY THAT DRIVE TIMING ERROR DIDNT SET 
702 011706 016037 000014 001142 MOV RMER1 (RO) SEDDAT :STORE RMER1 AT SBDDAT 
703 011714 042737 167777 001142 BIC #*CDTE, SBDDAT 
704 011722 001416 BEQ 30$ 
705 011724 010037 001136 MOV RO, $BDADR :SETUP ERROR MESSAGE 
706 011730 062737 000014 001136 ADD #RMERT, SBDADR 
707 011736 005037 001140 CLR SGDDAT 
708 011742 011237 001174 MOV (R2),.$TMPO 
709 011746 016237 000002 001176 V 2(R2) ,$TMP1 
710 011754 104025 EMT 25 
ab 911756 000453 BR 60$ :A FORMAT CHANGE 
713 -CLEAR THE FORMAT CHANGE FLOP W/INDEX PULSE 
714 011760 30S: 
215 011760 012760 051405 000024 MOV #DMD ' MUR! DBEN'MOC !MSEN! MI ,RMMR1 (RO) [LOAD RMMRI 
717 ZENABLE SEARCH AND FORCE SECTOR COMPARE 
718 011766 012760 051403 000024 MOV #DMD ! MUR! DBEN'MOC 'MSEN'MSC,RMMR1 (RO) :LOAD RMMR1 
719 011774 012760 051443 000024 MOV #DMD' MUR ' DBEN'MOC 'MSEN'MSC'MS,RMMR1(RO) :=LOAD RMMRT 
720 012002 012760 051403 000024 MOV #DMD ' MUR‘ DBEN! MOC 'MSEN!MSC .RMMR1 (RO) =LOAD RMMR1 
722 :SET DTE W/ANOTHER SECTOR PULSE - VERIFY DTE IS SET 
723 012019 012760 051441 000024 MOV #DMD ! MUR | DBEN' MOC 'MSEN!MS ,RMMR1 (RO) :LOAD RMMR1 
724 012016 012760 051401 000024 MOV #DMD | MUR | DBEN /MOC !MSEN. RMR (RO) “LOAD RMMR1 
725 012024 016037 000014 001142 MOV RMER1(RO), SBDDAT :STORE RMER1 AT $B8DDAT 
012032 042737 167777 001142 BIC #*CDTE, $BDD 
727 012040 001012 BNE 40$ 
728 012042 010037 001136 MOV RO, $BDADR :SETUP ERROR MESSAGE 
729 012046 062737 000014 001136 ADD #RMER1, $BDADR 
730 012054 012737 010000 001140 


MOV #DTE ,$GDDAT 
731 012062 104027 EMT 27 
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732 012064 
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734 
735 012066 
736 912066 
737 012072 
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739 012076 
740 
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2 
001142 


001140 


BR 60$ 
;00 TEST W/18 TO 16 FORMAT CHANGE DURING SECOND EXECUTION 
"CMP #50$,R2 
BNE 60$ :BRANCH IF DONE TEST 
TST (R2)+ “MOVE POINTER 
BR 10$ “REPEAT TEST 
50S: .WORD M716 216-18 FORMAT CHANGE 
“ WORD *1B=16 FORMAT CHANGE 
"WORD FMT16 
60$: :END OF TEST 
CEA RARARARAERAAAEEREK AEC ETEEKEKERERAEEEHEEERHHREKERRRERREEEEREREKEEe 
SSTEST 14 PROM STROBE TEST 
Rr 
TST14: 
ee ;SCOPE CALL 
MOV #STACK, SP : LOAD THE STACK POINTER 
MOV S$BASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 “R1 = POINTER TO DEVICE 
MOV #14, $TESIN “:SET TEST NUMBER IN APT MAIL BOx 
JSR PC. CNTCLR :GO CLEAR CONTROLLER 
MOV RO, $BDADR :SETUP ERROR MESSAGE 
ADD #RMMR'1 , SBDADR 
:SET DIAGNOSTIC MODE AND TRY TO RESET PROM STROBE 
MOV _RMMR1 (RO) RMMR1 
MOV #17. ,R2 ROSMAX IMUM # CLOCK PULSES 
MOV ADMD !MCLK,, RMMR1 (RO) :LOAD RMMR1 
MOV SRMMRI(RO) :LOAD RMMR} 
MOV RMMR (RO), SEDDAT : STORE RMMR1 AT $BDDAT 
BIC #°*CWC, SBDDAT 
BEQ 6$ 
DEC R2 
BNR 5$ 
CLR SGDDAT 
EMT 
BR 60$ 
i MOV #17. .R2 
"MOV #DMD !MCLK,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD.RMMR1(RO) ;LOAD RMMRT 
MOV RMMR1 (RO), $BDDAT :STORE RMMR1 AT $BDDAT 
BIC #*CWC, $BDDAT 
BNE 20$ :EXIT LOOP WHEN PROM STROBE ON 
DEC R2 
BNE 10$ 
MOV #WC,$GDDAT 
EMT 30 
BR 60$ 
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T14 PROM STROBE TEST SEQ 0069 
7 -VERIFY PROM STROBE IS ON FOR 3 BIT CLOCKS 
778 012306 20$: 
79 012306 012702 000003 MOV #3. ,R2 
780 012312 258: 
912312 012760 004001 000024 MOV #DMD !MCLK RAPA (RO) :LOAD RMMR1 
781 012320 012760 000001 000024 MOV #DMD .R MMR' (RO) LOAD RMMR1 
782 012326 016037 000024 001142 MOV RMT (RO) ),$BDD :STORE RMMR1 AT $BDDAT 
783 012334 042737 177737 001142 BIC #*CWC, $BDDAT 
| 784 012342 001005 BNE 30$ :BRANCH IF IF PROM STORBE DID NOT 
| 786 012344 012737 000040 001140 MOV #WC,$GDDAT 
787 012352 104032 EMT 32 
788 012354 000427 BR 60$ 
789 012356 005302 30$: DEC R2 
| 790 012360 001354 BNE 25$ 
| 792 :VERIFY PROM STROBE IS OFF FOR 8 BIT CLOCKS 
| 793 012362 012702 000010 MOV #8. .R2 
| 794 012366 40$: 
C12366 012760 004001 000024 MOV #DMD !MCLK MMR (RO) :LOAD RMMR1 
| 295 012374 012760 000001 000024 MOV DMD, RMMRI(RO) _;LOAD RMMR1 
796 012402 016037 000024 001142 MOV RMMR1 (RO), $8DDAT :STORE RMMR1 AT S$BDDAT 
| 797 012410 042737 177787 001142 - BIC #*CWC, SBDDAT 
798 012416 001404 BEQ 50$ :BRANCH IF PROM STROBE 
| 799 012420 005037 007140 CLR $GDDAT :DID NOT SET EARLY 
424 104033 EMT 33 
801 012426 000402 BR 60$ 
802 012430 005302 50$: DEC 
803 012432 001355 BNE 40% 
012434 60S: 
806 5 TAREE AREER EERE EEE AERA EAE EEREERERAEREERAEEREARA REET EEE 
=*TEST 15 SYNC WORD COUNT INHIBIT TEST 
FF EAA AAAS ARAEREREEEAARAEREEAEREAEEERERAR RETAKE 
012434 TST15: 
912434 000004 SCOPE :SCOPE CALL 
012436 000240 NOP 
012440 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
012444 013700 001276 MOV $BASE RO -RO = UNIBUS ADDRESS 
012450 013701 001466 MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
ai 012454 012737 000015 001226 MOV #15, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
808 :SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 
809 012462 012737 000005 001446 MOV #5,.RMDCO ;CYLINDER=5 
810 012470 012737 000000 001420 MOV #0, RMDAO i SECTOR=0, TRACK=0 
811 912476 012737 010000 001444 MOV #FMT16,RMOFO :16 BIT T 
812 012504 012737 054636 001416 MOV ABUF FER, RMBAO : STARTING BUFFER ADDRESS 
| 813 012512 012737 177777 001414 MOV #~1 ,RMWCO 
814 012520 012737 000061 001412 MOV #WD !GO,RMCS10 “WRITE DATA COMMAND 
| 816 012526 004737 022432 JSR PC,ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
*SEARCH IS ENABLED USING SUBROUTINE. 
012532 000402 BR 10$ “BRANCH TO 10$ IF NO ERROR 
012534 104000 EMT 
817 012536 000562 BR 120$ sSKIP IF FAILURE 


818 012540 10$: 


ae ae 


CO re ee cee ee meee 
‘ 


819 012540 
C12544 
012546 

820 012550 

821 


822 
825 


824 
825 012552 
826 


827 

828 012556 
829 012556 
830 012564 


832 
833 012572 


38 
839 012606 


849 
850 012650 
851 012650 
852 012654 
853 


854 


855 012656 
856 012656 
857 012664 


863 012704 
864 
865 
866 
867 012706 
868 012706 
869 


012702 


012760 
012760 


022702 
001414 


012760 
012760 


612702 


012760 
012760 


MQB0 wer xe DSKLS TST 2 


023504 


000000 


055401 
051401 


000024 
000040 


001142 
175777 


000012 


055401 
051401 


000024 
000040 
000020 


055401 
051401 





F 
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000024 
000024 


001142 


001136 


600024 
000024 


000024 
000024 


JSR PC, SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ “BRANCH TO 20% IF NO ERROR 


EMT 
BR 120$ 


CAN NOW STEP DATA TIMING SEQUENCER WITH SECTOR COMPARE SET 


sSTEP THE SEQUENCER TO LOCATION 10(10) WHILE CHECKING ‘?PLFS’’ 


20$: MOV #0,R2 :R2=SEQUENCER ADDRESS 
gPUL SE MAINTENANCE CLOCK UNTIL PROM STROBE SETS 


MOV ADMD ! MUR! DBEN!MOC !MSEN!MCLK,RMMR1(RO) ;LOAD RMMRT1 
MOV #DMD !MUR ! DBEN! MOC !MSEN,RMMR1 (RO) LOAD: RMMRI 


;SEE IF PROM ie * 7 SET 
MOV (RO) ,R3 STORE RMMR1 AT R3 
BIT MWC RS 
BEQ 30$ ; ISSUE NEXT BIT CLOCK 
INC R2 : INCREMENT SEQUENCER ADDRESS 


; CHECK pie POR SYNC'’ = SHOULD BE ZERO UNTIL LOCATION 11 


3, 
BIC #*CPLFS,$BDDAT 


BEQ 50$ ;BRANCH IF PLFS IS ZERO 
CLR SGDDAT 
MOV RO, $BDADR 


120$ ;SKIP REST OF TEST 


aset! LOOP IF SEQUENCER NOW AT LOCATION 10 


CMP #10.,R2 
BEQ 70$ 


ro aia MAINTENANCE CLOCK UNTIL PROM STROBE RESETS 


MOV #DMD ! MUR! DBEN! MOC !MSEN!MCLK ,RMMR1 (RO) He RMMR 1 
MOV #DMD ! MUR ! DBEN! MOC !MSEN, RMMR1 (RO) ;LOAD RMMR1 


;SEE IF PROM STROBE IS RESET 
MOV RMMR1 (RO) RS ;STORE RMMR1 AT R35 
BIT — 
BR 30$ :GO STEP SEQUENCER TO NEXT LOC 


; THE NEXT PROM STROBE SHOULD SET ‘'PLFS*’ AT LOCATION 11(10) OF THE 
DATA TIMING SEQUENCER. 


MOV #16.,R2 ;R2=NUMBER OF BIT CLOCKS 


aa 16 BIT CLOCKS TO GET NEXT PROM STROBE 
MOV ADMD ! MUR! DBEN! MOC! MSEN!MCLK,RMMR1(RO) ;LOAD RMMR1 
MOV ADMD ! MUR! DBEN: MOC !MSEN, RMMR1 (RQ) ;LOAD RMMR) 


LIL EL OO ET St COE OE EELS Ef NS ee ah el tn EO 6 OF ES AOD eee ek —_ 


SEQ 0070 


a se 


874 012726 
875 012730 


878 912732 


885 012772 


888 012774 


892 G13014 
893 013016 


896 
897 013020 


Ooooocoa 
wk ech od oad eed wed ed 


005302 
001370 


012702 


012702 


012760 


012737 


RMO5S/3/2 DSKLS TST 2 
SYNC WORD COUNT INHIBIT T 


000024 
175777 


000024 


000005 


055401 
051401 


000040 


055401 
eRe 


00002 
177737 


00006 


001142 
001142 


001140 
001136 


000024 
000024 


000024 
000024 


001136 


001226 


: VERIFY 


95$: 


G 
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St 


DEC R2 
BNE 80$ 
THAT ‘'PLFS'' IS NOW S 
MOV RMMR1(RO), SBDDAT :STORE RMMR1 AT $BDDAT 
BIC A*CPLFS, $BDDAT 
BNE 90$ ;BRANCH IF PLFS IS SET 
MOV #PLFS,$GDDAT § :SETUP ERROR MESSAGE 
MOV RO, DA DR 
ADD #RMR1, $BDADR 
EMT 35 
BR 120$ :SKIP REST OF TEST 

Se 3 MORE BIT CLOCKS TO RESET PROM STRORE 

"MOV #3,R2 

MOV ADMD 'MUR! DBEN! MOC '!MSEN!MCLK,RMMR1 (RO) :LOAD RMMR1 
MOV DMD !MUR | DBEN!MOC iMSEN, RUM (RO) “LOAD RMMR1 
BNE 95$ 


:PROM STR 


:WITH Bs FOR SYNC SET, FURTHER BIT CLOCKS SHOULD NOT SET 


#32. ,R2 ;R2=NUMBER OF BIT CLOCKS 


ion BIT CLOCK AND VERIFY PROM STROBE DOES NOT SET 


; 


; 


10$: 


20$: 


#DMD ' MUR! DBEN! MOC !MSEN!MCLK,RMMR1(RO) ;LOAD RMMRI 
#DMD ! MUR! DBEN! MOC !MSEN, RMMR1 (RC) zLOAD RMMR1 
RMMR1 (RO) RS ;STORE RMAR1 AT RS 
#*CWC RS 

110$ :BRANCH IF PROM STROBE IS 0 

SGDDAT :SETUP ERROR MESSAGE 
R3,$BDDAT 
RO, ag 

1, $8DADR 

120% 

2 ; CONTINUE FOR 32 BIT CLOCKS 

100$ 


sEND OF TEST 


° J ERA REAR AEREE AR EEAAEEERARARAEAREEEAREAAARREAREREHTEREKRERRE RE 


S*TEST 16 


TST16: 


SYNC DETECTION TEST 


pes ere eeeenehindgt <SeneenenaeenabensenpeAMentiseriateicesavenwes 


;SCOPE CALL 
ASTACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 Rt = POINTER TO DEVICE 
#I6,$TESTN :SET TEST NUMBER IN APT MAIL BOX 


:SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 


SEQ 0071 


Sama RMO5/ 3/2 
SYNC DETE 


920 013132 


925 013170 
926 
927 013176 


013202 
013204 
928 015206 
929 013210 
9350 013210 


9335 013222 
C13226 
013230 

934 013232 

935 

936 

937 

938 015234 

939 013234 


969 013402 





012702 


012760 


TST 2 
TEST 


000000 
00005 
010000 
054636 
177777 
000071 


022432 


023304 


023412 


057401 
053401 


000024 
177737 
177777 


000020 


055401 
051401 


000024 
177737 
001174 


hi 
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001420 


001412 


001136 
000024 
000024 
000024 
001142 
001142 


001174 


000024 


001142 


10$: 


20$: 


“a 


#0,RMDAO 
#5,RMDCO 
#FMT16,RMOFO 
#BUF FER ,RMBAO 
4- ~RMW 0 
#RD!GO,RMCS10 
PC,ENBSCH 

103 

100$ 
PC,SCTCMP 
20$ 


100$ 
PC,SETLFS 
30$ 


100$ _ 


iSECTOR O,TRACK 0 

;CYLINDER 5 

316 BIT MODE 

;BUFFER ADDRESS 

i¢ COUNT 

sREAD DATA COMMAND 

SEARCH DATA COMMAND TO POINT WHERE 


ARCH IS ENABLED USING SUBROUTINE. 
;BRANCH TO 10$ IF NO ERROR 


sFORCE SECTOR COMPARE USING SUBROUTINE 
;BRANCH TO 20% IF NO ERROR 


;SET “LOOKING FOR SYNC’’ USING SUBROUTINE 
;BRANCH TO 30$ IF NO ERROR 


peer 3 ALL ONES SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 
USING PROM STORBE AS INDICATION) 


$08: 


40$: 


50$: 
DEC 


MOV 
;CLOCK ALL ZERO 
60$: 


70$: 


#16. ,R2 :NUMBER OF ONE BITS 
RO. SBDADR :SETUP ERROR MESSAGE 

SGDDAT- 

AMR AAA! MRD ,RMMR1 (RO) ;LOAD RMMARI 

AMR IAAA'MRD'MCLK,RMMR1 (RO) ;LOAD RMARI 
#MRIAAA'MRD.RMMRI(RO)  :LOAD RMMRI 

ea cate :STORE RMMAR1 AT SBDDAT 
50$_— 

#177777 ,STHPO 

100$ 

os. :REPEAT FOR 16 BITS 

#16. ,R2 :NUMBER OF ZERO BITS 


SYNC PATTERN AND VERIFY SYNC IS NOT DETECTED 


#MR1AAA!MCLK.RMMR1 (RO) 
RMMR1 (RO) 
RMRT (RO) SBDDAT 


CMC $BDDAT 


;LOAD RMMR1 
;LOAD RMMR1 


;STORE RMMR1 AT SBDDAT 
;MAKE SURE SYNC NOT DETECTED 


;SKIP JF FAILURE 
sREPEAT FOR 16 BITS 


| 5 aaa RMO5/3/2 DSKLS TST 2 
SYNC DETECTION 


970 013404 
971 013406 
972 013412 
973 

974 

975 

$76 013416 
977 013424 
978 013426 
979 013430 


1005 013622 


1009 013644 
1010 013646 


012737 


012737 


004737 


TEST 


000040 
000031 


051401 


4 
177737 


000040 


001100 
001276 
001466 
000017 


000000 
000005 
010000 
054636 
177777 
000071 


022432 


023304 


| 
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001436 


001436 


000024 


001142 


001140 





BNE 
MOV #32. ,R2 :R2=NUMBER OF BITS 
MOV #000031 ,R3 *R3=SYNC PATTERN FOR LEFT SHIFT 


‘CLOCK. THE BINARY SYNC PATTERN (10011000) AND VERIFY THAT SYNC IS 
O$: MOV WMRIAAA,RMMR1O ;GENERATE VALUE OF RMMR1 
CLC ‘CLEAR THE CARR 
ROR R3 “SHIFT RIGHT 
BCC 903 “BRANCH IF C BIT CLEAR 
a BIS #MRD ,RMMR10 “SET MRD IF PATTER BIT SETS 
"MOV RMMR10,RMMR1 (RO) :LOAD RMMR1 
BIS #MCLK ,RMMR10 7SET THE MAINTENANCE DATA CLK 
MOV 10, RMMR1 (RO) +L 1 
BIC #MCLK,RMMR10 ;RESET BIT CLOCK 
MOV 10, RMMR1 (RO) ‘LO 
V 1(RO) , $BDDAT STORE RMMR1 AT SBDDAT 
RIC #*CWC, $BDDAT 
BNE 100$ :BRANCH IF PROM STROBE IS SET 
DEC Ro =CONTINME FOR 16 BIT CLOCKS 
MOV #wWC,$GDDAT 
EMT 40 
100$: :END OF TEST 
SEERA ERE ERA RETA EAEEAERERAHAAAARERAEEEAEEEEREKKEKEKEAEARAKHEKEKE 
<STEST 17 ABORT SYNC DETECTION TEST 


5 EAA ERE EERE AEREREPOREEERKERREKERHREE 


TST17: 
— :SCOPE CALL 
MOV ASTACK ,SP ;LOAD THE STACK POINTER 


MOV SBASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 

MOV #17, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
:SETUP REGISTER OUTPUT BUFFER FOR SUBROUTINES 

MOV #0 ,RMDAO sSECTOR 0, TRACK 0 

MOV #5 ,RMDCO ‘CYLINDER R 5 


MOV #FMT16,RMOFO  :16 BIT FORMAT 
MOV.  M#BUFFER,RMBAO i STARTING BUFFER ADDRESS 


#~1 ,RMWCO 
MOV #RD'GO,RMCS10 READ DATA COMMAND 


JSR PC, ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
:SEARCH IS ENABLED —_— 


BR 10$ “BRANCH TO 10$ IF NO 
sae BR 50$ 
” cc ele PC, SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ “BRANCH TO 20$ IF NO ERROR 
BR 50$ 
20$: 


nee eet nee = 


10171 


| aes RMO5/3/2 DSKLS TST 2 


J 
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ABORT SYNC DETECTION TEST 


013646 
0 2 


1034 0135752 


1035 
1036 
1037 


1045 


013752 
013752 


014 
014036 


1046 
1047 014044 


014050 


060 
1050 014060 
014064 





014066 


004737 
000402 
104000 
000435 


012760 


012702 


012737 


012737 


004737 


023412 


051441 


000020 


055441 
051441 


000024 
177737 


0622432 


014444 
023304 


000024 


000024 


001142 


007140 
001136 


sLOOKING FOR SYNC INHIBITS WORD CL 
;SHOULD RESET ‘LFS 


JSR PC, SETLFS ;SET "'LOOKING FOR SYNC’’ USING SUBROUTINE 
BR 30$ “BRANCH TO 30$ IF NO ERROR 
BR 50S. 

OCK HOWEVER, “DRIVE TIMING ERROR"’ 
S WORD COUNT INHIBIT” FLOP 


gFORCE DRIVE TIMING ERROR 
"MOV #MR21AAA!MS,RMMR1(RO) LOAD -RMMR1 
:PULSE BIT CLOCK AND VERIFY PROM STROBE SETS 
si MOV #16. ,R2 :R2, NUMBER OF BIT CLOCKS 
"MOV #MR1AAA'MS!MCLK,RMMR1 (RO) :LOAD RMMR1 
MOV #MRIAAA'MS.RMMRI(RO) =LOAD 
MOV RMMR1 (RO) , SepDAT *STORE RMMR1 AT $BDDAT 
BIC #*CWC, $BDDAT 
BNE 50$ 
DEC R2 
BNE 40$ 
MOV #WC , SGDDAT 
MOV RO, $BDAD 
ADD #RMMR1 , SBDADR 
EMT 41 
50$: 
FRE AAAERAAEAA AAA ARETARAEAREARAREARARAAEAEEEREEREREEEREREREREREKEE 
“STEST 20 SYNC GENERATION TEST 
a ee en ee ee 
7S120: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
MOV #20, $TESTN *;SET TEST NUMBER IN APT MAIL BOX 


; SETUP eo OUTPUT BUFFER FOR SUBROUTINES 


10$: 


et 0, TRACK 0 


MOV #5..RMDCO YL 
MOV #FMT16, RMOFO 716 BIT MODE 
MOV #BUF FER, RMBAO [BUFFER ADDRESS 


*WHITE HEAD AND DATA COM 


sEXECUTE DATA COMMAND TO POINT WHERE 
>SEARCH IS ENABLED USING SUBROUTINE . 


4-2 -RMWCO 
MOV #WH!GO,RMCS10 
JSR PC, ENBSCH 


ent 10$ ;BRANCH TO 10$ IF NO ERROR 
JMP 160$ 


JSR PC. SCTCMP sFORCE SECTOR COMPARE USING SUBROUTINE 
20$ “BRANCH TO 20% IF NO ERROR 


SEQ 0074 


—— 


aaa RMO5/3/2 DSKLS TST ¢ 


SYNC GENERATION TES 
by 014070 000565 


1064 014150 
1065 
1066 


067 


; 
1068 014152 


1074 014154 


1090 
1091 014232 
1092 014234 
1093 


1094 
1095 014236 
236 


016037 


2 
000545 


012702 
016037 


012702 


000040 
177776 


001140 


001136 
000040 


000016 
000040 
000001 


001136 
000040 
000001 


055401 


055401 
051401 
000024 
000040 


000020 


K 
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BR 160$ « 
:WRITE PROM OF DATA TIMING SEQUENCER SHOULD NOW BE ENABLED 
FIRST, VERIFY THAT WRITE GATE IS ON, INDICATING THAT 


ZSECTOR COMPARE SET 
001142 "MOV RMMR2 (RO) , $BDDAT : STORE RMMR2 AT $BDDAT 
001142 BIC #*(BB00, $8DDAT “BUS BIT 0 IS WRITE GATE 
BNE 30$ : 
CLR SGDDAT 
MOV RO, $BDADR 
001136 ADD #RMMR , SBDADR 
BR 160$ :FORMAT=CS FAILURE 
:STEP THE DATA TIMING SEQUENCER TO LOCATION 16 AND VERIFY WRITE 
GATE STAYS ON 
a MOV #14. ,R2 :MAXMUM NUMBER OF CLOCK 
001142 "MOV RMMR2 (RO), $BDDAT :STORE RMMR2 AT S$BDDAT 
001142 BIT #8B00, $BDDAT ; 
BNE 50$ “BRANCH IF WRITE GATE ON 
DEC R2 
BNE 40$ 
MOV RO, $BDADR 
001136 ADD #RMMR2 , SBDADR 
001140 MOV #8B00,$GDDAT 
EMT 42 
BR 160$ :FORMAT - CS FAILURE 
50$: 
60$: 
000024 MOV AMRIAAA!MCLK,RMMR1(RO) =:LOAD RMMRT 
000024 MOV AMRIAAA “LOAD RMMR1 
MOV RMMR1(RO),R3 STORE RMMR1 AT R3 
BIT WC RB 
BEO 60$ 
= PROM STROBE CAME ON-DECREMENT PROM STROBE COUNT 
BEQ 80$ 
WAIT FOR PROM STROBE TO GO OFF, THEN REPEAT LOOP 
000024 "MOV #MRIAAA!MCLK.RMMR1(RO) :LOAD RMMRI 
000024 MOV AMRIAAA. RMMR1 (RO) *LOAD RMMR1 
MOV RMMR1(RO).R3 STORE RMMR1 AT R3 
BIT HWCR3 
BEQ 40$ 
BR 70$ 


; VERIFY HEADER SYNC GENERATION 
sWRITE DATA BIT IS_ INVERTED AT MAINTENANCE REGISTER 
iar NUMBER OF ZERO BITS UNTIL FIRST ONE BIT 


MOV #16.,Re2 ;MAX TIMES THRU LOOP 


L 
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720 SYNC GENERATION TEST SEQ 0076 
1108 014272 005003 CLR R3 
1109 014274 908: 
014274 016004 000024 MOV RMMR1(RO),R4  ;STORE RMMR1 AT RG 

1110 014300 032704 000010 BIT #MWD , R4 
1111 014304 001414 BEQ 110$ ; JUMP OUT OF LOOP WITH FIRST 1 
1112 014306 005203 INC R3 ‘INCREMENT ZERO COUNT 
1113 014310 00536 DEC R2 “DECREMCNT MAX LOOP COUNT 

114 014312 001002 BNE 100$ 

115 014314 104043 EMT 43 

116 014316 000452 BR 160$ ;HEADER SYNC ,CANT GET FIRST 1 
117 014320 1008: 

118 014320 012760 055491 000024 MOV #MRIAAA'MCLK,RMMR1(RO) =LOAD RMMR1 

119 014326 012760 051401 000024 MOV #MR1AAA.RMMR] (RO) “LOAD RMMR1 

120 014334 000757 BR 90$ 

22 :MAKE SURE THERE WERE AT LEAST 8 ZERO BITS IN HEADER SYNC 

23 014336 1108: 

24 014336 020327 000010 CMP R3,48. 

25 014342 103002 BHIS  120$ 

26 614344 104043 EMT 43 

27 014346 000436 BR 160$ sHEADER SYNC 


sain ; SAMPLE AND STORE THE REST OF THE HEADER SYNC 
014350 012702 000010 "MOV #8. .R2 :NUMBER OF SAMPLES 
014354 005003 CLR R3 “HEADER SYNC 
014356 1308: 

000024 MOV RMPIR (RO) -R4 :STORE RMMR1 AT R46 


006303 
014364 032704 000010 BIT AMID ,R4 SHIFT SAMPLE,IF SYNC BIT IS 1 
014370 001002 BNE 140$ :THEN SET SAMPLE INPUT 
014372 0527035 000001 BIS #B1T0,R3 
dap es 005302 140$: as R 


150$ 
055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) =:LOAD RMMRI 
014410 012760 051401 000024 MOV #MR1AAA,RMMRI (RO) >LOAD RMMR1 
014416 000757 BR 130$ :DO LOOP TIL R2=0 


| VERIFY THE SYNC BIT STREAM IS 0000000010011000 
014420 012737 000230 001140 "MOV #000230, SGDDAT 

014426 010337 001142 MOV R3, SAD 

014432 023757 001140 001142 CMP SbDAT.. OSBDDAT 


014442 104044 EMT 44 
014444 160$: 


RYRAGEUNASS 
ee 
os 
v4 
—] 
3 
2 


WN 
WhO wo 
° 
—" 
aL 
x 

) 
nm 
° 
— 
nN 
g 


eee ee eee lice Retain el Reel ee ee Ree ee ee ee ee ee ee ee oe oe ee ee ee er ee 


elite ie Ree Ree ee ee ee ee ee ee ee eee ee ee ee ee eee | 


SWN-OOON 
=) 
aS 
& 
S 
LS 
oO 
S 
wank 
@ 
mi 
© 


MA 


JARRE AEEREEAAEEERERAARAEAAAREAAAARARAEAAREERAAARRARREERRERE 


“ STEST 21 WRITE HEADER TEST 


: J EAA AEAARKERRAEAARAEAAAREREER ERE 
014444 $121: 


074444 000004 2 SCOPE CALL 


001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
014454 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
001466 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 


014460 013701 








EE RR em a ee Ke ce —_—- -- - --- 


| | a RMOS/3/2 DSKLS TST 2 
T21 WRITE HEADER TEST 


014464 012737 000021 


001466 


014472 
014 001334 


NN NWN 
WWWNAG 
MuNnNNNNS 


Nm WN aS 
Ss vo 
S 


014526 


014532 
014536 


014542 
014546 112712 000036 
014552 012737 177776 
014560 000063 


oO 

aa 

ae 

VI 

™ 

™N 
Oo oO OCO0OO0O-00O 
Wad dad dadadad 


Cl ee ee | td od et od ed + 
~wv~s , VIIA) 
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001226 MOV #21,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
:SETUP THE REGISTER OUTPUT BUFFER FOR SUBROUTINES 
001446 MOV #822. ,RMDCO i LAST CYLINDER 
001420 MOV LSTRK * RMDAO “SET LAST TRACK AND 
001420 MOVB RMDA “LAST SECTOR 
001444 SEMtie RMOFO ;IN 16 BI T 
MOV FFER,R ‘BUFFER ADDRESS 
MOV »RMBAO ‘BUFFER STAR 
*STORE FIRST HEADER WORD 
MOV #150000,(R2) §:SET MF/UF BITS GOOD, 16 BIT FORMAT AND 
BIS #822. ,(R2)+ “LAST CYLINDER 
:STORE SECOND HEADER WORD 
MOV ro kK, (R2) “SET LAST TRACK ADDRESS AND 
MOVB soft 0. (R2) :SECTOR ADDRESS. 
001414 MOV CO 32 WORDS (2'S COMP) 
001412 MOV males. RMCS10 :WRITE HEADER COMMAND 
JSR PC, ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
ARCH IS ENABLED USING SUBROUTINE. 
BR 10$ “BRANCH TO 10$ IF NO ERROR 
me JMP 160$ 
rill PC, SCTCMP sFORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ 7BRANCH TO 20% IF NO ERROR 
JMP 160$ 
STEP THE DATA TIMING SEQUENCER UNTIL ‘HEADER AREA’ COMES ON 
"MOV #15. ,R2 ZALLOW 15 MORE PROM STORBES 
30$: MOV #33, RG sALLOW 33 BIT CLOCKS PER PROM STROBE 
PULSE BIT CLOCK UNTIL PROM STROBE IS ON 
000024 "MOV WMRIAAA'MCLK,RMMR1(RO) <:LOAD RMMRI 
000024 MOV HMRIAAA “LOAD RMMR1 
MOV RMMR1(RO).R3 STORE RMMRT AT R3 
BIT MIC RS 
BNE 50$ 
DEC R4 
BNE 40$ 
JMP 160$ : COUNT EXHAUSTED 
iSEE IF HEADER AREA CAME ON 
kee #PHA,R3 
BNE 80$ 
DEC R2 
BNE 60$ 
:ERROR=HEADER AREA NEVER CAME ON 
001140 MOV #PHA, $GDDAT :SETUP ERROR MESSAGE 
CLR SBDDAT 
MOV RO, $BDADR 
001136 ADD #RMMR1, $BDADR 


LLL LL, EL LL Cl at tt i i lt ft te tt le 


SEQ 0077 


Le et ee ee ee 


CZ7RMQBO RMO5/3/2 DSKLS TST 2 
| T21 WRITE HEADER TEST 


| 
| 1206 014722 104045 
f 


™ 


1207 014724 000137 015432 
1208 

1209 

1210 014730 

1211 014730 012760 055401 
1212 014736 012760 051401 
1213 014744 016003 000024 
1214 014750 032703 000040 
1215 014754 0014 

1216 014756 005304 

1217 014760 001363 

1218 014762 000137 015432 
1219 

1220 

1221 0147 

1222 014766 016037 000040 
1223 014774 042737 176000 


1224 015002 022737 000001 
704 


1229 015032 
if = 015034 000576 


1232 
12335 
1234 015036 
1235 015036 012702 000005 
1236 015042 
015 055401 


1 012760 
1237 015050 012760 051401 


1246 015102 
247 015104 
1248 015104 016005 000024 
1249 015110 304 
1250 015112 032705 000010 
1251 015116 2 
1252 015120 052704 000001 
1253 015124 

015124 012760 055401 
1254 015132 012760 051401 
1255 015140 005303 
1256 015142 001360 
1257 015144 010422 
1258 015146 022702 001200 
<a 015152 101415 
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EMT 45 
JMP 160$ :SKIP REST OF TEST 
jwalT FOR PROM STROBE TO GO OFF 
000024 "MOV #MRIAAA!MCLK,RMMR1(RO) ;=LOAD RMMRI 
000024 MOV #MR1AAA,.RMMR1 (RO) “LOAD RMMR1 
MOV RMMR1(RO),R3 ;STORE RMMR1 AT R3 
BIT #WCR3 
BEQ 0$ 
DEC R4 
BNE 60$ 
JMP 160$ :COUNT EXHAUSTED 
{VERIFY THE TAG BUS ONCE EVERY PROM STROBE 
001142 "MOV RMMR2 (RO), SBDDAT ;STORE RMMR2 AT $BDDAT 
001142 BIC #°C1777,$BDDAT 
001142 CMP WBBOO.$BDDAT § ;WRITE GATE SHOULD BE ON 
BEQ 30$ sALL ELSE OFF 
MOV RO, S$BDADR : 
001136 ADD 2, $BDADR 
001140 MOV #8B00,$GDDAT 
EMT 4 
BR 160$ 
;HEADER AREA IS NOW ON CAN START SAMPLE 
DATA AFTER 5 MORE BIT CLOCKS 
iti MOV #5.R2 
000024 "MOV AMRIAAA!MCLK,RMMR1(RO) =LOAD RMMRI 
000024 MOV #4R1AAA,KMMRT (RO) [LOAD RMMR1 
DEC R2 
BNE 81$ 
: SAMPLE AND STORE THE TWO HEADER WORDS 
CLR $TMPO 
CLR STMP1 
MOV #STMPO,R2 :R2 NUMBER OF WORDS/ADDRESS 
90$: MOV #16. ,R3 “NUMBER OF BITS 
oe CLR R4 “WORD STORAGE 
~~ MOV RMMR1(RO),RS  : STORE RMMR1 AT RS 
ASL R4 ‘SHIFT WORD SAMPLE 
BIT #MWD RS “SET BIT O IF WRITE BIT ON 


BN 
nee BIS #BITO.RG 
000024 "MOV WMRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 


000024 MOV 4MR1AAA,RMMR1 (RO) ;LOAD RMMR1 
DEC R3 
BNE 100$ 
MOV R4,(R2)+ :STORE WORD SAMPLE 
CMP ASTMPO+4 ,R2 DONE ? 
BLOS 120$ ;Yes 


= epee essere issn testes cscs nenasiastieeareseasenen SE ee eee | ee - 


SEQ 0078 


ST 
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1290 015276 


1302 015344 
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022737 
001025 


032737 


177577 


001136 
000024 
000 


i 


000024 
176777 


055401 
051401 


000001 


055401 
051401 


066313 


010000 
074110 


000024 
000024 


001174 


001334 
001176 


;HEADER AREA SHOULD STILL BE ON 
BIC #*C<PHA>, 


MOV 

ADD 

MOV 

EMT 

BR 
sWAIT UNTIL 
1208: 

CLR 


1258: 


140$: 





FOR SECOND HEADER WORD 


RS 
;BRANCH IF ON 
RO, SBDADR 
#RMMR 1, SBDADR 
#PHA,$GDDAT 
45 
160$ 
ECRC SETS 
R3 7 CHECK NUMBER BITS DIFFIR BET PHA AND ECRC 
RMMR1(RO).RS § ;STORE RMMR? AT RS 
W*C<ECRO>.RS CHECK OUT THE AEST BITS 
1 “BRANCH IF ECRC ON 
WRT AAA'MCLK RI (RO) : LOAD RMMA 1 
#MR AAA, RMMR) (RO RMMR 1 
* TOTAL NPRER OF BIT DIFF 
[OVER ONE WORD ? 
“BRANCH IF NOT 
:CLEAR THE EXP 
46 
160$ sEXIT 
STORE CRC WORD 
#16. ,R3 , 
RG 
RMMR1(RO),RS § ;STORE RMMR1 AT RS 
R4 :SHIFT WORD SAMPLE 
auld RS -SET BIT 0 IF WRITE BIT ON 
#BITO.R4G 
SMRIAAA'MCLK.RMMR1(RO) =LOAD RMMRI 
MMRDA, RMR (RO) :LOAD RMMR1 
130$ 
R4,(R2)+ 


VERIFY 3 HEADER WORDS 
sNOTE THAT DATA WAS STORED ve ay REVERSE 


: ORDER -_ 
BNE 


WHICH IT_WAS WRITT 
#066313,STMPO 


Y CORRECT FIRST HDR WRD ? 
“NO !! 


; VERIFY ee AND 3RD ease WORDS FOR AN RMO5 


BEO 
CMP 
BNE 





ti) hl 
#074110, $TMP1 
150$ 


‘IS DEVICE AN RMOS ? 
CORRECT SECOND HDR WRD ? 
2NO !! 


Se eee coerce cn cm cs ee — 
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WANA 
Oo 
oO 
ond 
Ww 
3 


? 015432 
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022432 


016700 
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SEQ 0080 
001200 CMP #167073,$TMP2  ;CORRECT HEADER CRC ? 
BNE 150$ 3NO !! 
BR 160$ 
VERIFY 2ND AND 3RD HEADER WORDS FOR AN RMO3 
001176 cmp #074040, $TMP1 ; CORRECT SECOND HDR WRD ? 
001200 CMP #067510,$TMP2 CORRECT HEADER CRC ? 
BEQ 169$ “YES |! 
150$: 
EMT 47 
60S: :END OF SUB TEST 
CF ARERR RARER AREER RERREKRREREREEEEEHEEEEEHHEHHHEE 
=*TEST 22 HEADER COMPARE TEST : 
SPEAR EEA ARR AERAAAEAAAEEERARERERAERTRAREERARAREREEREREREERERHKEHREHE 
TST22: 
SCOPE :SCOPE CALL 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
001226 MOV #22, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
:LOAD REGISTER OUTPUT BUFFER FOR READ HEADER COMMAND 
001446 MOV #822. .RMDCO :LAST CYLINDER 
001420 MOV LSTRK.RMDAO 7SET LAST TRACK AND 
001420 MOVB . -RMDAO “LAST SECTOR 
001416 MOV WBUFFER,RMBAO  :DATA SS 
001414 MOV #=2 ,RMWCO 72 WORDS (2°S COMP) 
001444 MOV #FMT16,RMOFO  :16 BIT MODE 
001412 MOV #RH'GO.RMCS10  :READ HEADER AND DATA FUN 
JSR PC, ENBSCH :EXECUTE DATA COMMAND TO POINT WHERE 
> SEARCH IS ENABLED USING SUBROUTINE . 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
sak JMP 230% :SKIP REST OF TEST IF ERROR 
— PC, SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 20$ :BRANCH TO 20$ IF NO ERROR 


230$ 
se GATE SHOULD BE OFF FOR 3 PROM STROBES 
MOV RO, $BDADR ; SETUP ERROR MESSAGE 


001136 ADD #RMMR2 , SBDADR 
MOV #4,R2 -R2=NUMBER OF PROM STROBES 
30$: MOV #17. RG “MAX BIT CLOCKS 
j CLOCK BIT CLOCK UNTIL PROM STROBE COMES ON 
000024 "MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
000024 MOV #MR1AAA,.RMMR1 (RO) =LOAD RMMR1 


SSREE 
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T22 COMP 


016 
032703 
001 


00 
000137 


012702 
012705 


012760 
012760 
016004 
032704 

004 


10 
010437 


TST 2 
TEST 


000024 
000040 
016700 


000040 
176000 


001142 
001140 


016700 
055401 
051401 
000024 


016700 


000006 
000021 
055401 
051401 
000024 


016700 


000040 
176000 
000002 
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000024 
000024 


000024 
000024 


>VERIFY 


50$ 


70$ 


MOV RMMR1 (RO) ,R3 ;STORE RMMR1 AT R35 
#WC,R3 


BNE 50$ ;BRANCH WHEN PROM STROBE ON 
DEC R4 

E 40$ 
JMP 230$ 


READ GATE IS OFF AND TAG BUS IS ZERO 


MOV RMMR2(RO),R3 ;STORE RMMR2 AT R3 
BIC #°C1777,R3 


BEQ 60$ ;BRANCH IF TAG BUS ZERO 
MOV R3,$BDDAT 

CLR SGDDAT 

EMT 50 

JMP 230$ sREAD HEADER FUNCTION 


gat BIT CLOCK TIL PROM STROBE GOES OFF 


MOV WR IAAA!MCLK -RMMR1(RO) LOAD RMMRI 

MOV #MR1AAA_R ) RMMR 1 

MOV RMMR 1 ( TRO) [R3. ss STORE RMMRI AT R3 

BIT #WwC,R3 

BEQ 70$ :BRANCH IF PROM STROBE OFF 
DEC R4 

BNE 60$ 

IMP 230$ 


;CONTINUE FOR 3 BIT CYCLE TOTAL (LOC O NOT SAMPLED) 


DEC R2 
BNE 30$ 


READ GATE SHOULD COME ON WITH NEXT PROM STROBE AND STAY 


;0N FOR 


80$: 
peace BIT CLOCK TIL PROM STROBE SETS 


: VERIFY 
100$: 





7 CYCLES (AND MORE) 


MOV #6.R2 
MOV #17. ,R3 


MOV AMR IAAA!MCLK,RMMR1(RO) ;LOAD RMMR1 
MOV #MRIAAA RMMR1 (RO) ;LOAD RMMR1 


MOV RMMRI(RO).R4  :STORE RMMRT AT RG 
BIT WWC RG 
BNE 100$ :BRANCH WHEN PROM STROBE ON 
DEC R3 

E 90$ 
JMP 230$ 


READ GATE ON AND REST OF TAG BUS OFF 


MOV RMMR2 (RO) ,R4 ;STORE RMMR2 AT R4 

BIC #*°C1777,R4 

CMP #BB01 ,R4 

BEQ 110$ ;BRANCH IF READ GATE ON 
MOV R4, $BDDAT 


SEQ 0081 


ier i iota ee: ua —- Pe eee - 
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T22 HEADER COMPARE TEST SEQ 008, 
1414 016024 012737 000002 001140 MOV #BB01,$GDDAT 
1415 016032 104050 EMT 50 
1616 016034 000137 016700 JMP 230$ :READ HEADER FUNCTION 
1418 :CLOCK BIT CLOCK TIL PROM STROBE GOES OFF 
1419 016040 110$: 
1420 016040 012760 055401 000024 MOV WMRIAAAIMCLK -RMMRT(RO) LOAD RMMR1 
1421 016046 012760 051401 000024 MOV #MR1AAA.RMMR1 (RO) LOAD RMMR1 
1422 016054 016004 000024 MOV RMMR1(RO),R4  :STORE Rion AT RG 
1423 016060 032704 000040 BIT #WORS 
1424 016064 001404 BEQ 120$ :BRANCH WHEN PROM STROBE OFF 
1425 016066 005303 DEC 
1426 016070 001363 BNE 110$ 
1427 016072 000137 016700 IMP =—ss« 2308 
1429 :CONTINUE FOR TOTAL OF 7 CYCLES 
1430 016076 120$: 
1431 016076 005302 DEC R2 
1632 016100 001317 BNE 80$ 
1434 ;LOOKING FOR SYNC SHOULD SET WITH NEXT PROM STORBE 
1435 016102 012702 000021 MOV #17. ,R2 :MAX BIT CLOCKS 
1437 :CLOCK BIT CLOCK TIL PROM STROBE SETS 
1438 016106 130$: 
1439 016106 012760 055401 000024 MOV #MRIAAA'MCLK.RMMR1(RO) =LOAD RMMRI 
1440 016114 012760 051401 000024 MOV MR AAA .RMMR1 (RO) “LOAD RMMR1 
1441 016122 016003 000024 MOV RMMR1(RO),R3 STORE RMMRI AT R3 
1442 016126 032703 000040 BIT #WCR3 
1443 016132 001004 BNE 140$ :BRANCH WHEN PROM STROBE GN 
1444 016134 005302 DEC R2 
1445 016136 001363 BNE 130$ 
1446 016140 000137 016700 JMP 230$ 
1448 : VERIFY ‘PLFS'' IS NOW ON 
1449 016144 140$: 
1450 016144 042703 175777 BIC #*CPLFS.R3 
1451 016150 001015 BNE 150$ 
1452 016152 010337 001142 MOV R3,$BDDAT 
1453 016156 012737 002000 001140 MOV APLFS, SeDDAT 
1454 016164 010037 001136 MOV RO, $BDADR 
1455 016170 062737 000024 001136 ADD ARMMR1 , SBDADR 
1456 016176 104035 EMT 5 
1457 016200 000137 016700 JMP 230$ 
1458 016204 150$: 
1459 016204 012703 000005 MOV #5,R3 
1461 :WITH PLFS ON, WORD COUNT INHIBIT WILL SET IN 5 BIT CLOCKS 
1462 016210 155$: 
1463 016210 012760 055401 000024 MOV #MRIAAA'MCLK,RMMR1(RO) ;LOAD RMMR1 
1464 016216 012760 051401 000024 MOV #MR1AAA,RMMR1 (RO) =LOAD RMMR1 
1465 016224 005303 DEC R3 
1466 016226 001370 BNE 155$ 
1468 :SIMULATE THE SYNC PATTERN BEING READ 
1469 016230 012702 000031 MOV #31,R2 :SYNC PATTERN=00011001 
1470 016234 012703 000010 MOV #8. R3 *8 BITS IN PATTERN 
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T22 HEADER COMPARE TEST SEQ 0083 
1471 016240 160$: 
1472 016240 012737 055401 001436 MOV #MR1AAA'MCLK,RMMR10 
1473 016246 000241 CLC 
1474 016250 006002 ROR R2 
1475 016252 103003 BCC 165$ ; 
1476 016254 052737 002000 001436 BIS #MRD , RMMR10 
1477 016262 1658: 
1478 016262 013760 001436 000024 MOV RMMR10,RMMR1 (RO) :LOAD RMMR1 
1479 016270 042737 004000 001436 BIC #MCLK,RMMR10 
1480 016276 013760 001436 000024 MOV RMMR10, RMR (RO) :LOAD RMMR1 
1481 016304 005303 DEC R3 :CONTINUE TIL SHIFT COUNT 
1482 016306 001354 BNE 160$ "1S ZERO 
1484 :SIMULATE THE HEADER BEING READ 
1485 016310 012702 001174 MOV #STMPO.R 
1486 016314 012737 150000 001174 MOV #150006 STMPO :SET MF/UF BITS GOOD, 16 BIT FORMAT AND 
1487 016322 052737 001466 001174 BIS #822. ,$TMPO “LAST CYLINDER 
1488 016330 013737 001334 001176 MOV LSTRK,$TMP1 *SET LAST TRACK AND 
1489 016336 112737 000036 001176 MOVB #30.,$TMP1 LAST 
1490 016344 012737 011366 001200 MOV #011366,$TMP2  :GET CRC PATTERN 
1491 016352 032737 010000 001334 BIT #TA16,LSTRK :1S DEVICE AN RMOS ? 
1492 016360 001403 | BEQ 1 “NO ! 
1493 016362 012737 156167 001200 MOV #156167,$TMP2 :YES, ADJUST CRC PATTERN 
1494 016370 170$: 
1495 016370 012703 000020 MOV #16. ,R3 :NUMBER OF BITS EACH WORD 
1496 016374 012204 MOV (R2)+,R4 sHEADER WORD 1,2 OR 3 
1497 016376 175$: 
1498 016376 012737 055401 001436 MOV #MR1AAA'MCLK,RMMR10 
1499 016404 000241 CLC 
1500 016406 006004 ROR R4 
1501 016410 103003 BCC 180$ 
1502 016412 052737 002000 001436 BIS #MRD , RMMR10 
1503 016420 1808: 
016420 013760 001436 000024 MOV RMMR10,RMMR1 (RO) ZLOAD RMMR1 
1504 016426 042737 004000 001436 BIC #MCLK ,RMMR1 
1505 016434 013760 001436 000024 MOV RMMR10,RMMR1 (RO) :LOAD RMMR1 
1506 016442 005303 DEC RS :SHIFT OUT 16 BITS 
1507 016444 001354 BNE 
1508 016446 020227 001200 CMP Sg SO :ALL DONE ? 
1509 016452 101746 BLOS 1565 “BRANCH IF NOT 
1511 ;LOOKING FOR SYNC SHOULD COME ON WITHIN 6 STROSES 
1512 016454 012702 000006 MOV #6,R2 
1513 016466 012703 000021 185$: MOV WP RS 
“515 :CLOCK UNTIL PROM STROBE ON 
1516 016464 190$: 
1517 016464 01276C 055401 000024 MOV #MRIAAA'MCLK.RMMR1(RO) =LOAD RMMRI 
1518 016472 012760 051401 0600024 MOV #MR1AAA .RMMR1 (RO) “LOAD RMMR1 
1519 016500 016004 0600024 MOV RMMR1(RO).R4  ;STORE RMMR1 AT R4 
1520 016504 032704 000040 BIT #WCR4 
1521 016510 0601003 BNE 195$ 
1522 016512 005303 DEC 3 
1523 016514 001363 E 0$ 
1326 016516 000470 BR 230$ 
1526 :SEE IF ‘PLFS'’ IS ON 
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CZ7RMQBO RMOS/3/2 DSKLS TST 2 MACRO V04.00 
Tee HEADER COMPARE TEST SEQ 0084 
1§27 016520 195$: 
1528 016520 042704 175777 BIC A*CPLFS,RS 
16s 016524 001034 BNE 210$ 
1531 sCONTINUE IF LESS THAN 6 PROM STROBES 
1532 016526 005302 DEC R2 | 
1533 016530 001014 BNE 200$ 
1534 016532 010437 001142 MOV R4,$BDDAT ; SETUP ERROR 
1535 016536 012737 002000 001140 MOV #PLFS,$GDDAT 
1836 016544 010037 001136 MOV RO,$BDADR 
1537 016550 062737 000024 001136 ADD #RMMR 1, S$BDADR 
1538 016556 104035 EMT 5 
S44 016560 000447 BR 230$ ;HEADER 
1541 :CLOCK UNTIL PROM STROBE OFF 
1542 016562 200$: 
1543 016562 012760 055401 000024 MOV A#MR1IAAA'MCLK,RMMR1 (RO) ;LOAD RMMR 1 
1544 016570 012760 051401 000024 MOV A#MRIAAA,R RMMR1 (RO) LOAD RMMR1 
1545 016576 016004 000024 MOV RMMRI(RO).R& STORE RMMRI AT Ra 
1546 016602 032704 000040 BIT MWC RS 
1547 016606 001724 BEQ 185$ 
1548 016610 005303 DEC R3 
1549 016612 001363 BNE 200$ 
Es 016614 000431 BR 230$ 
1552 ; VERIFY NO HEADER ERROR IS SET 
1553 016616 2108: 
1554 016616 016037 000014 001142 MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT $8DDAT 
1555 016624 042737 177157 001142 BIC #“C<HCRC'HCE!FER>, SBDDAT 
1556 016632 001411 BEQ 2208 
1557 016634 005037 001140 CLR SGDDAT 
1558 016640 010037 001136 MOV RO, $BDADR 
1559 016644 062737 000014 001136 ADD #RMER1 , SBDADR 
1560 016652 104051 EMT 1 
8 016654 000411 BR 230% ;HEADER ERROR SET 
15 7; VERIFY DATA IN MEMORY OK 
1564 016656 220$: 
1565 016656 023737 054636 001174 CMP BUFFER ,STMPO ;COMPARE 1ST HEADER WORD 
1566 016664 001004 : BNE 5$ 
1567 016666 023737 054640 001176 CMP BUFFER+2,$TMP1 ;COMPARE 2ND HEADER WORD 
Les C16674 001401 BEQ 230% 
1570 ;REPORT ERROR IN ONE OR MORE HEADER WORDS 
1571 016676 225$: 
1572 016676 104052 EMT 52 
oe 0167 230$: 
1575 5 SEERA ERR ERE EEE EEE RAE RTA RERRAERARRRERRRERE RRR ERE EEE 
= *TEST 23 ECC GENERATION TEST 
i LAER EERE ARETE EAR ERA AREA ERA RRA AREA EAR AERA RR ERR ERE 
016700 1ST23: 
016700 O 4 SCOPE ;SCOPE CALL 
016702 00024 NOP 
016704 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
016710 013700 001276 MOV $BASE ,RO RO = UNIBUS ADDRESS 


LL eS — —e — 
— a CT st tet 


ee Ee eee ee 
tt et, 


CZRMQBO RMO5/3/2 DSKLS 
ECC GENERATION TEST 


Te3 


Oe OO 
RON SS Bae 


Ww 


1620 
1621 


BSee 


016714 
016720 


016726 
016734 


Ooo°o°c°o 
HS 
Seeee 
a ey te 

MmMOONnm 


016772 
016776 


C17020 
017022 
017026 
0 


017076 


017112 


013701 
012737 


012703 


012702 


004737 


TST 2 


001466 
000025 


001466 


177777 
000400 


022432 


020066 


023304 


029066 
023412 


020066 
025574 


020066 


917634 


017654 


oe 
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001226 


001446 


001444 


001412 


MOV TSTQUE ,R1 ;R1_= POINTER TO DEVICE 
MOV #23, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


sSETUP REGISTER OUTPUT BUFFER FOR WRITE DATA CAMOMMAND 
MOV #822. ,RMDCO ;LAST CYLINDER 
MOV LSTRK,RMDAO ;SET LAST TRACK AND 
;LAST SECTOR 
FO :16 BIT FORMAT, IGNORE HEADER 


MOV AO :DATA ADDRESS 
MOV #2256. .R3 7256. WORDS (2°S COMP) 


R 
MOV #wD!GO,RMCS10 WRITE DATA COMMAND 


:FILL THE DATA BUFFER WITH ALL ONES 
MOV #177777, RG :DATA PATTERN ALL ONES 
MOV #256. R53 “ONE SECTOR DATA FIELD 
10$: MOV Re. (RS) 


DEC 
BNE 10$ 
JSR PC, ENBSCH sEXECUTE DATA COMMAND TO POINT WHERE 
7SEARCH IS ENABLED USING SUBROUTINE. 
BR 20$ sBRANCH TO 20$ IF NO ERROR 
sos. P4008 
aa PC. SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 30$ “BRANCH TO 30$ IF NO ERROR 
ae JMP 400$ 
a PC, SETLFS :SET ‘LOOKING FOR SYNC** USING SUBROUTINE 
BR 40$ “BRANCH TO 40$ IF NO ERROR 
sa JMP 400$ 
oe PC, CLKSNC : CLOCK THE SYNC C_PATTERN USING SUBROUTINE 
50$ BR TO 50$ IF NO ERROR 
EMT 
JMP 400$ 


sHEADER COMPARE IS INHIBITED FOR THIS TEST 
:CLOCK THE DATA TIMING SEQUENCER AND VERIFY THE FOLLOWING WAVEFORMS 
:FOR EACH LEADING EDGD OF PROM STROBE 


; HEADER ARES, READ GATE (DATA TIMING SEQUENCER=200 OCTAL) 
; are cRC OUT 

; WRITE GATE 

50$: MOV #230$,R2 :POINTER TO WAVE FORM TABLE 


;CLOCK BIT CLOCK (MCLK) UNTIL PROM STROBE COMES ON 
gg PC, 300$ 
PROM STROBE 1S ON - VERIFY WAVEFORM 


— en On ee ee ome te ee ee A ee ek 


SEQ 0085 


ee = 


1632 017156 
16335 
1634 
1635 017162 
1640 017210 
1641 
1642 
1643 017212 
1644 017216 


1645 017224 
1646 017226 
1647 


1648 
1649 017232 
1650 017232 
1651 
1655 017242 
1656 
1657 
1658 017244 
1659 
1660 
1661 017250 
1662 017250 
1665 


1664 
1665 017054 


1674 017274 
1675 


1676 
1677 017276 
1678 017304 


ATION 
016037 


010037 
062737 
104054 
000137 


016037 


020227 
103721 


012702 


004737 


012737 
005037 


CZRMQBO RMO5/3/2 DSKLS ee 2 
125 GENER TEST 


000024 


001140 


001136 
000024 


020066 


001140 


001136 
000040 


020066 


017762 


017652 


000011 


017654 


000024 


177377 


017762 


000400 
001142 


a. 
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001142 
001142 


001142 


001136 


001142 
001142 


001142 


001136 


001140 


MOV RMMR1 (RO) , $BDD ;STORE RMMR1 AT $BDDAT 
BIC WCCECRCPDAIPHA 'EECC>, $BDDAT 


MOV (R2)+ 
CMP $GDDAT , SBDDAT 
BEQ 90$ ;BRANCH IF RMMR1 OK 


sERROR = THE DATA TIMING SEQUENCER OUTPUT IS ONCORRECT 
MOV RO, $BDADR 


ADD ROR , $BDADR 
JMP 400$ 


sVERIFY THE TAB BUS 
90$: 


MOV Pee a ;STORE RMMR2 AT SBDDAT 


CMP SGDDAT , SBDDAT 


BEQ 100$ ;BRANCH IF TAG BUS OK 
sERROR~ TAG BUS IS WRONG 

MOV RO, $BDAD 

ADD #RMMR2 , SBDADR 

EMT 53 

JMP 400$ 


sonece BIT CLOCK TIL PROM STROBE RESETS 


JSR PC,350$ 


aia CHECKING THROUGH 4 PROM CYCLES 


CMP R2,4250$+16 
BLO 8O—s 708 

> VERIFY THAT DATA AREA COMES ON “ach oe PROM STROBES 
MOV #9. R2 sR2=9 TROBES 


;CLOCK PROM STROBE ON 
130$: 


JSR PC, 300$ 


icon, STROBE ON CKECK IF DATA AREA ON 


MOV RMMR1 (RO) .R4 ;STORE RMMR1T AT R4 
BIC #*CPDA,R4 
BNE 160$ 


jeheck PROM STROBE OFF 
, JSR _— PC, 350 
DEC 
BNE  _—- 1380S 
;ERROR=DATA AREA DIDN'T COME ON 
MOV #PDA, $GDDAT s;SETUP ERROR MESSAGE 
CLR —« $BDDAT . 


re ee SN i a tsps st 


—- -oxw- 
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CZRMQBO RMO5/3/2 DSKLS TST 2 
T TEST SEQ 0087 


23 ECC GENERATION 


1679 017310 010037 001136 MOV RO, $BDADR 
1680 017314 062737 600024 001136 ADD #RMMR1, $BDADR 
1681 017322 104055 EMT 55 
1682 017324 000541 BR 220$ 
1684 :VERIFY THAT DATA AREA IS ON FOR 256 CYCLES 
1685 017326 160$: 
1686 017326 012702 000400 MOV #256. ,R2 
1688 :VERIFY THAT DATA AREA IS ON AND ECC IS OFF 
1689 017332 1708: 
1690 017332 016003 000024 MOV RMMR1(RO),R3  _; STORE RMMR1 AT R3 
1691 017336 042703 177357 BIC #°C<PDA'EECC>,R3 
1692 017342 022703 000400 CMP #PDA,R3 
1693 017346 001414 BEQ 180$ :DATA AREA JS ON 
694 017350 010337 001142 MOV R3,$BDDAT 
1695 017354 012737 000400 001140 MOV #PDA, $GDDAT 
1696 017362 010037 001136 MOV RO, $BDADR 
1697 017366 062737 (000024 001136 ADD #RMMR 1, SBDADR 
1698 617374 104055 EMT 
1699 017376 000514 BR 220$ 
1701 :CLOCK PROM STROBE OFF 
1702 017400 180$: 
1703 017400 004737 017762 JSR PC, 350% 
1705 :CLOCK PROM STROBE ON 
1706 017404 004737 017654 JSR PC, 300$ 
1708 : CONTINUE TIL COUNT ZERO 
1709 017410 005302 DEC R2 
1710 017412 001347 170$ 
1712 :ECC SHOULD BE ENABLED WITHIN 4 CLOCK BITS 
1713 017414 005002 LR R2 
1714 017416 182$: 
917416 01 000024 MOV RMMR1(RO),R3 STORE RMMRI AT RZ 

1715 017422 042703 177357 BIC #°C<PDA'EECC>,R3 
1716 017426 022703 000020 CMP WEECC, 
1717 017432 001426 BEO 
1718 617434 005202 INC R2 
1719 017436 012760 055401 000024 MOV AMRIAAA'MCLK.RMMR1(RO) ;:LOAD RMMR1 
1720 017444 012760 051401 000024 MOV #MR AAA, RMMR1 (RO) *LOAD RMMR1 
1721 017452 022702 000007 CMP #7..R2 
1722 017456 101357 BHI 1 
1723 017460 010337 001142 MOV R3, $BDDAT 
1724 017464 012737 20 001140 MOV #EECC, SGDDAT 
1725 017472 010037 001136 MOV RO, $BDADR 
1726 017476 062737 000024 001136 ADD #RMMR1, $BDADR 
1727 017504 104056 EMT 
1728 017506 000450 BR 2208 

30 ;SAMPLE ECC CHARACTER FOR 32 BITS 
1731 017510 190$: 
1732 017510 012702 001174 MOV #STMPO,R2 
1733 017514 005002 195$: (CLR 
1734 017516 012704 000020 MOV #16. ,R4 
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1735 017522 
7522 
1736 017526 


1747 017570 
1748 
1749 
1750 017572 
1756 017626 
1757 


5 
1758 017630 
1759 
1760 017634 


™~ 
RT, 
> 
oud 
Os 
Ww 
© 


7 017652 
9 017654 


~ 
o 


RH 
© 
ot 


FRVSSIaNSNNNS J 
. 


4 
17756 
7760 


“SJ NNN 
0B 93 03 9 od 


016005 
006303 
032705 
001002 
052703 


012760 


101351 


022737 
001004 


012737 


G00024 
000010 
000001 


055401 
051401 


001200 


131177 
175154 
131177 
175154 


020066 


000021 
055401 
051401 
000024 
177737 
017756 
017756 
000040 


001136 
000024 


000021 


— — = oe _ ~ —<— — = 
-——~—- ew 
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2008: 
MOV RMMR1(RO),R5 -s STORE RMMR1 AT RS 
ASL R3 
BIT #MWD RS 
BNE 205$ :BRANCH IF ECC BIT OFF (MWD INVERTED) 
ia BIS #B1TO,R3 
000024 "MOV HMR AMAL MCLK RMR (RO) :LOAD RMMR1 
000024 MOY #MR1AAA.RMMR4 (RO) “LOAD RMMR1 
BNE 2008 
MOV (R2)+ 
CMP po R2 
BHI 195$ 
: VERIFY ECC CHARACTER GENERATED 
001174 COE #131177, $TMPO 
001176 CMP #179154, SSTMP1 
001200 2108: MOV #131177. $TMP2 
001202 MOV #175154.$TMP3 
EMT 61 
220$: UMP 400$ :GREAT ESCAPE 
2308: -WORD PHA 
.WORD 8801 
“WORD PHA 
.WORD 8801 
-WORD 0 
-WORD 2 
“WORD 0 
“WORD 0 
017756 3008: MOV #17. , 3208 :CLOCK PROM STROBE ON 
000024 "MoV WMRIAAA!MCLK.RMMR1(RO) ;LOAD RMMRI 
000024 MOV #MRTAAA_RMMRI (RO) [LOAD RMMR1 
017760 MOV PIR ( 1(RO),330$ :STORE RMMRI AT 330S 
017760 BIC #*CWC, 3308 
BNE 310$ :EXIT IF PROM STROBE ON 
ae: 
001142 MOV 320$,$BDDAT :SETUP ERROR MESSAGE 
001140 MOV #WC,$GODAT 
MOV RO, $82DAD 
001136 ADD #RMMR1 , $BDADR 
EMT 30 
BR 400$ ; 
310$: RTS PC 
320$: .WORD 0 :MAX BIT COUNT 
330$: .WORD 0 *RMMR1 CONTENTS 
020062 350%: MOV #17. ,370$ 
sai :CLOCK PROM STROBE OFF 


_ CZRMQBO RMOS/3/2 DSKLS TS? . 
T23 ECC GENERATION TEST 


| 017770 012760 055401 


se. 
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te 


[ 


1811 

1812 

1815 020116 

1818 020152 

1819 020156 

1820 020164 

1821 

1822 020172 
020172 
020176 
020200 

1823 020202 

1824 

1825 020206 
020214 

1eS6 020216 

1828 020222 


01 
013701 
012737 


012737 


000024 


022432 


021054 


023504 


021054 


000024 MOV #MR1AAA!MCLK,RMMR1 (RO) : LOAD RMR 
000024 MOV #MR1AAA.RMMR1 (RO) OAD R 
020064 MOV RMMR 1 (RO) 380$ ;STORE Rint AT me8OS 
020064 BIC #*CWC, 380$ 
BEQ 360$ 
DEC 370$ 
BNE 355$ 
001142 MOV 3808. SBDDAT 
MOV +H SBDADR 
001136 ADD #RMMR1, $BDADR 
EMT 62 
BR 400$ 
3608: RTS PC 
370$: .WORD 0 :MAX BIT COUNT 
380$: .WORD 0 :CONTENTS OF RMMR1 
400$: :SUB=-TEST EXIT POINT 
NOP 
FERRARA ERATE EKHEKKKKEE 
SSTEST 26 ECC DETECTION TEST 
FT AEA RARER AERAEREAKERAREETREEERRERAEEARKKEE 
TST24: 
SCOPE :SCOPE CALL 
MOV #STACK,SP :LOAD THE STACK POINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
001226 MOV #24, $TESTN >:SET TEST NUMBER IN APT MAIL BOX 
:SETUP REGISTER OUTPUT BUFFER FOR READ DATA COMMAND 
001446 MOV #822. ,RMDCO :LAST CYLINDER 
001420 MOV LSTRK .RMDAO *SET LAST TRACK AND 
001420 MOVB #30. RMDAO :LAST SECTOR 
001444 MOV #FMTI6!HCI,RMOFO. : INHIBIT HEADER COMPARE 
MOV BUF ONE Re 
MOV RMBAO 
001414 MOV poste ReUCO 3256 WORDS (2"S COMP) 
001412 MOV #RD'GO,RMCS10  ;READ DATA COMMAND 
20$: 
JSR PC, ENBSCH :EXECUTE DATA COMMAND TO POINT WHERE 
*SEARCH IS ENABLED USING SUBROUTINE. 
BR 30$ :BRANCH TO 30$ IF NO ERROR 
JMP 190$ 
30$: 
JSR PC, SCTCMP :FORCE SECTOR COMPARE USING SUBROUTINE 
BR 40$ “BRANCH TO 40$ IF NO ERROR 
JMP 190$ 
40$: 





a a 


- —— - 
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020222 
020226 


020230 
bs 020232 
1831 020236 

020236 

020242 

020244 
ex 020246 
1834 


18 
1836 020252 
be 020256 


| 
3 ECC DETECTION TEST 
| 


— 
Oo 
DOVRARG 3 
2 
: 


1865 020376 
1866 
867 
1868 020400 
1869 020406 
1870 
1871 020412 
1872 0 


1877 
1878 020444 


012737 
010337 


023412 
021054 
023574 


021054 


000002 
021166 
021060 


060024 
002000 


36 
000024 


002000 
001142 


175777 
0011 

000024 
021054 


ee 
2°76 


ee Oe a ee — 
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001142 


001136 


001140 


001142 
001136 


JSR 


50$: 


SEG 0090 


PC, SETLFS :SET ‘LOOKING FOR SYNC’’ USING SUBROUTINE 
50$ “BRANCH TO 50$ IF NO ERROR 


190$ 
PC,CLKSNC :CLOCK THE SYNC PATTERN USING SUBROUTINE 
55$ “BR TO 55$ IF NO ERROR 

190$ 


sHEADER COMPARE IS INHIBITED ‘? THIS TEST 


WITHIN ONE CYCLE 


‘LOOKING FOR SYNC’’ SHOULD GO OFF 
és§: MOV 2 R2 sALLOW 2 PASSES THRU LOOP 
60$: JSR PC, 350$ :RESET PROM STROBE 
JSR PC, 300$ >SET PROM STROBE 
70$ sad 
MOV RMMR1(RO),R3 ;STORE RMMR1 AT R3 
BIT APLFS,R3 
BEQ ;BRANCH IF LOOKING FOR SYNC OFF 
DEC R2 
BNE 60$ 
;ERROR=LOOKING FOR SYNC DID NOT RESET DURING HEADER 
MOV R3, :SETUP ERROR MESSAGE 
BIC #*CPLES, SBDDAT 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RIMR 1, SBDADR 
EMT 40 
JMP 190$ 
LOOKING FOR SYNC SHOULD COME ON FOR DATA AREA WITHIN 9 PROM CYCLES 
MOV #9. .R2 
85$: JSR PC, 350$ :SET STROBE OFF 
JSR PC, :SET PROM STROBE 
MOV RMMR1 (RO) R3 ; STORE RMMR1 AT RZ 
BIT #PLFS.R3 
BNE “BRANCH IF SYNC ENABLED 
DEC R2 
BNE 85$ 
;ERROR-CAN'T LOOKING FOR SYNC DURING DATA AREA 
MOV #PLFS, SGDDA AT 
MOV R3,$BDDA 
BIC #°CPLFS,$BDDAT 
MOV RO, $BDA 
ADD #RMMR1, SBDADR 
EMT 35 
JMP 190$ 
90$: 
JSR PC, 350$ sRESET PROM STROBE 
JSR PC; CLKSNC “CLOCK THE SYNC PATTERN USING SUBROUTINE 





i 
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SEQ 00%! 


| 
| ECC DETECTION TEST 
| 
| 


020450 000402 BR 100$ :BR TO 100$ IF NO ERROR 
920452 104000 EMT 
1879 020454 000577 BR 190$ 
1881 -SIMULATE READ DATA 
1882 020456 1008: 
1883 020456 012702 000400 MOV #256. ,R2 :WORD COUNT 
1884 020462 612703 000020 110$: MOV #16. ,R3 “BIT COUNT 
1885 020466 115$: 
020466 012760 057401 000024 MOV #M2 AAA!MRD!MCLK,RMMR1 (RO) :LOAD RMMR1 
886 020474 012760 053401 000024 MOV #MRIAAA'MRD,RMMRI(RO)  ;LOAD RMMRI 
1887 020502 005303 DEC R3 
1888 020504 001370 BNE 115$ 
1889 020506 005302 DEC R2 
1890 02051 1364 BNE 110$ 
892 :SIMULATE ECC PATTERN 
1893 020512 012737 177446 001174 MOV #177446, $TMPO :FIRST ECC WORD 
1894 020520 012737 015457 001176 MOV #015457.$TMP S ECC WORD 
1895 620526 012702 001174 MOV ASTMPO RZ 
1896 020532 012703 000020 120$: MOV +16. RS 
1897 020536 012 0517401 125$: MOV 1AAA,R4 
1898 020542 000241 CLC 
1899 020544 006012 ROR (R2) 
020 103002 BCC 130$ 
1901 020550 052704 002000 BIS #MRD RS 
1902 020554 130$: 
020554 010460 000024 MOV R4,RMMR1(RO) =; LOAD RMMRI 
1903 020560 052704 004000 BIS #MCLK, 
1904 020564 010460 000024 MOV R4.RMMR1(RO)  :LOAD RMMRI 
1905 020570 042704 004000 BIC AMCLK RS 
1906 020574 010460 000024 MOV R4,RMMRI(RO)  ;:LOAD RMMRI 
1907 0 005303 DEC 3 
1908 020602 001355 BNE 125$ :CLOCK A WORD 
1909 020604 702 ADD 2,R2 
1910 020610 022702 001176 CMP #STMP1 RZ 
1911 020614 001746 BEQ 0$ :CLOCK THE NEXT WORD 
1913 :VERIFY DATA AREA AND READ GATE RESET 
1914 020616 012702 000005 MOV #5,R2 
1916 020622 004737 021060 140$: JSR C, 3008 ;SET PROM STROBE 
020626 004737 021166 JSR Pe  350$ =CLEAR PROM STROBE 
1918 020632 01600 24 MOV RMMR1(RO).R3 :STORE RMMR1 AT R3 
1919 020636 032703 00 BIT #PDA,R3 
1920 020642 001417 BEQ 150$ 
1921 020644 005302 DEC R2 
020646 001365 BNE 140$ 
1923 020650 042703 177377 BIC #*°CPDA,R3 :SETUP ERROR MESSAGE 
1924 020654 010337 0011742 MOV R3, SBDDAT 
1925 020660 005037 001140 CLR SGDDAT 
1926 020664 010037 00113 MOV RO, $BDADR 
020670 062737 000024 001136 ADD #RMMR 1, $BDADR 
1928 020676 104063 | EMT 63 
1929 020700 45 BR 190$ 
1930 020702 150$: 
1931 020702 016003 000040 MOV RMMR2(RO),R3 =: STORE RMMR2 AT R3 


seetiie 


— 


1938 020736 
1340 020740 


1322 020742 


1971 021066 
021066 
1972 021074 


1 1160 

1985 021162 

1986 

1987 021164 
‘ 


001142 
001140 
001136 
021272 
000021 
055401 
051401 
000024 
177737 
021162 
021162 

0 


00004 
007136 
000024 


001136 


001140 


001736 


021162 


021164 
021164 


001142 
001140 


001136 





a 


;STORE RMER1 AT R35 


sDATA WAS STORED HERE 
sEACH WORD ALL ONES 


sEXIT IF ALL THE LOCATIONS CHECKED 
: SETUP ERROR MESSAGE 


:GREAT ESCAPE 


+ LOAD RMMR | 


) OAD RMMR1 
; STORE RINT AT 350$ 
sEXIT IF PROM STROBE ON 


: SETUP ERROR MESSAGE 


BIC #°C1777,R3 
Ct 
MOV R3,$BDDAT 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RMMR2 , SBDADR 
EMT 3 
BR 190$ 
VERIFY THERE ARE NO ECC ERRORS 
MOV RMER1(RO),R3 
BIC #*°C<DCK!ECH>,R3 
MOV #000000, $GD 
CMP SGDDAT ,R3 
BEQ 170$ 
MOV R3,$BDDAT 
MOV RO, $BDADR 
ADD #RMER1, SBDADR 
EMT 64 
BR 190$ 
: VERIFY DATA BUFFER 
170$: 
MOV #BUF ONE .R2 
MOV #177777.R3 
MOV #256. RG 
180$:- CMP (R2)+,R3 
BNE 185$ 
DEC R4 
BNE 120$ 
BR 190$ 
185$: MOV -(R2) sSBDDAT 
MOV _—R3, $GDDAT 
MOV R2. SBDADR 
EMT 65 
190$: JMP 400$ 
300$: MOV #17.,3-0% 
gCLOCK PROM STROBE ON 
MOV #MR1TAAA'MCLK,RMMR1 (RO) 
MOV AMRIAAA,RMMR (R 
MOV ane (RO) 3 330$ 
BIC #*CWC, 3308 
BNE 3 
DEC 320$ 
BNE 305$ 
MOV 320$ , SBDDAT 
MOV #WC , $GDDAT 
MOV RO, SBDADR 
ADD #RMMR 1, $BDADR 
EMT 0 
BR 400$ 
310$: RTS PC 
320$: .WORD 0 
330$: -WORD O 


_—-_ - - - © ew eee es ce 
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66 012737 000021 


74 012760 055401 
1991 021202 012760 051401 
00002 


021210 4 
2 si¢ 042737 177737 
1995 021226 005337 021266 

1 021232 001360 

1997 021234 013737 021270 


1998 021342 005037 007140 
1999 021246 010037 001136 
37 000024 
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021266 350$: 
3558: 


021270 


001142 


0011736 


#17. ,370$ sCLOCK THE STROBE OFF 


WMRIAAA!MCLK,RMMR1(RO) =LOAD RMMR1 
#MR1AAA.RMMR) (RO) “LOAD RMMR1 
RMMR 1 (RO) 380$ ;STORE RMMR1 AT 380$ 


CWC, 380$ 
360$ 
370$ 
355$ 
380$, $8DDAT 
DDAT 
RO, $BDADR 
1, SBDADR 
62 
400$ 
PC 
0 
0 


;SUB-TEST EXIT POINT 


renee © ee ee ee a ee eee 


- CZRMQBO RMOS/3/2 DSKLS TST 2 
END OF SUB=PASS ROUTINE 


' 
i 


} 


: 


, 
e 
3 
4 
5 
6 
8 
9 021274 000004 
10 021276 000240 
11 021500 013700 001466 
12 021304 062700 000002 
13 021310 010037 001466 
14 021314 005710 
15 021316 001402 
16 021320 000137 005200 
af 021524 012737 001470 
19 
20 
021332 
021332 000240 
021334 005037 001116 
021340 005037 1206 
021344 005237 001230 
021350 042737 100000 
021356 005327 
1360 
021362 
21364 012737 
1366 1 
021370 021360 
021372 104401 021400 
C21376 000407 
021416 
021416 013746 901230 
021422 104405 
021424 005737 001126 
021430 001431 
021432 104401 021440 
021436 000421 
021502 
021502 013746 001126 
021506 104405 
021510 005037 001126 
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~SBTTL END OF SUB=PASS ROUTINE 


sea IS ates END OF SUB=PASS ROUTINE. THIS Wee toes IS USED TO 


; TERMINA 


MORE DEVICES 


R F_ THERE ARE NO 
MADE TO — ROUTINE. OTHERWISE, RETURN 


;GET POINTER TO TSTQUE 

sADJUST POINTER TO NEXT DEVICE 
:SAVE POINTER TO TSTQUE 

; ANY fa DEVICES FOR TEST ? 


;YES, JUMP TO ‘READY’ ROUTINE 
; INITIALIZE POINTER TO FIRST DEVICE IN 
; TEST QUE TABLE 


J EAA AAA AAARAARAAAAREEAERARAEEEEEREREHEHERAAAKEEHEE 


NUMBER (S$PASS) 
:*TYPE "END PASS #XXXXX TOTAL NUMBER OF ns SINCE LAST REPORT yrvyy’’ 


::ZERO THE TEST NUMBER 

> ZERO THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 

Hig T ALLOW A NEG. NUMBER 


ii YES 
2 RESTORE COUNTER 


sie ASCIZ STRING 
:GET OVER THE ASCIZ 


+ SAVE SPASS FOR TYPEOUT 
PASS NUMBER 


: G0 TYPE=-DECIMAL ASCII WITH SIGN 
+2 SEE id ANY ERRORS THIS PASS 
; F NO ERRORS TO REPORT 
i; TYPE ASCIZ STRING 
T OVER THE a 
SINCE LAST REPORT / 


:;SAVE SERTTL FOR TYPEOUT 
:: TOTAL NUMBER OF ERRORS 
re TYPE==DECIMAL ASCII WITH SIGN 


: TEST, T IS 
-1S MADE TO 'READY' ROUT! 
SEOSP: SCOPE 
NOP 
MOV TSTQUE ,RO 
ADD #2, 
MOV RO, TSTQUE 
TST (RO) 
BEQ 1$ : 
JMP READY 
001466 =1$: MOV MTSTQUE +2, TSTQUE 
-SBTTL END OF PASS ROUTINE 
«INCREMENT THE PASS 
y*WHERE XXXXX AND YYYYY ARE + hat 
:*IF THERES A MONITOR GO TO IT 
s*I1F THERE ISN*T JUMP TO READY 
SEOP: 
NOP 
CLR STSTNM 
CLR STIMES 
INC $PASS 
001230 BIC #100000, $PASS 
DEC (PC) + se 
SEOPCT: .WORD- 
BGT SDOAGN 
MOV (PC) +,a(PC)+ 
SENDCT: . WORD 1 
SEOPCT 
TYPE ,-65$ 
64$ 
eg ASCIZ <12><15>/END PASS #/ 
MOV $PASS ,-(SP) 
TYPDS 
ST SERTIL 
BEQ $GT42P 
TYPE ,67$ 
BR 66$ 
FS al -ASCIZ / TOTAL ERRORS 
MOV SERTTL,~(SP) 
TYPDS 
CLR SERTTL 


;CLEAR ERROR TOTAL 


SEQ 0094 


— -~- —- mee eee —-<- - — _— —_—ee 


| €2 7RMQBO RMOS/3/2 _ TST 2 
END OF PASS ROUTIN 


021514 104401 001217 
021520 Sates 000042 


021544 377 377 


$GT42P: 
$GET42: 


SENDAD: JS 


SDOAGN: 


~$RINAD: 
000 S$ENULL: 


$DOAGN 
PC, (RO) 


QC) + 
READY 


E 8 
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SEQ 0095 
:; TYPE CARRIAGE aoe LINE FEED 
MON 


3 iGET ITOR ADDRESS 

; BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 

3:60 TO R 

3; SAVE ROOM 

: FOR 

3;ACT11 

; RETURN 


ssNULL CHARACTER STRING 


! 


eee seer: 
Se ee ene ee 


CLOCK SUBROUTINE 


eat ot at ad han ae ad 
WO ONAVULSWIL- OO BDWNOULWI Oo 


C21646 
021652 


021654 


021770 
021776 


022010 


53 022016 


56 


022024 
022026 


_ CZRMQBO wih SR DSKLS 


012637 
012637 
000207 


012777 
012777 
000403 


012777 


TST 2 


000004 
0003500 


157710 


021654 


021732 


0003500 
001520 
157570 
021740 


001536 


000006 
000004 
177777 
000135 


000100 


F 
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000004 
000006 


001536 


157664 


000004 
001536 
001540 
157614 


157610 
157572 


001516 
001524 
000004 


476 
466 


— od 
Win 
NN 


157466 


~SBTTL CLOCK SUBROUTINES 
sROUTINE TO SIZE FOR CLOCKS (KW11=L OR KW11-P) 


SIZCLK: 


saz iF 


10$: 


20$: 


NOP 
MOV 


MOV 
MOV 
MOV 


ERRVEC, het: 
ERRVEC+2,=(SP) 
#10$, ERRVEC 
#PR6,ERRVEC+2 


3;PUSH mrs a STACK 
H ERRVEC+2 ON STACK 
sLOAD 04° iRAP VECTORS 


A nied CLOCK IS PRESENT = GO TO 10$ IF NOT PRESENT 
@$LPCSR ; TEST 


FOR P CLOCK 

#PCLOCK,CLOCK LOAD SUBROUTINE ADDRESS 
#PSTOP,STOPCL LOAD STOP ADDRESS 
w#PCOUNT » aSLPVEC ; “LOAD P CLOCK INTERRUPT VECTOR 
SLLVEC+2,@$LLVEC; CLEAR L CLOCK INTERRUPT VECTOR 
a$SLLVEC+2 
30$ 
#15$, (SP) :DUMMY RTI ADDRESS 

*RESTORE PRIORITY 


IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 


#20$ ,ERRVEC CHANGE 04 TRAP VECTOR 

@$LLCSR :TEST FOR L CLOCK 

WLCLOCK, CLOCK LOAD SUBROUTINE ADDRESS 
#LSTOP,STOPCL LOAD STOP ADDRESS 

#LCOUNT ,@SLLVEC :LOAD L CLOCK INTERRUPT VECTOR 
#PR6 ,ASLLVEC+2 

SLPVEC+2,a$LPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
7" 
#25$, (SP) ;DUMMY RTI ADDRESS 
sRESTORE PRIORITY 


By CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 


30$: 


CLOCK :CLEAR SUBROUTINE ADDRESS 
git poe »SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
errunecae* -SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR 


$SLLVEC+ 

#2,4(SP) ; CHANGE RETURN ADDRESS 

(SP)+, ERRVEC+2 POP STACK INTO ERRVEC+2 
rare ; 3 POP stack INTO ERRVEC 


sROUTINES TO START THE CLOCK (KWi1=L OR KW11=P) 


PCLOCK: 


LCLOCK: 


MOV 
MOV 
BR 


MOV 


#-1,a$LPCSB :LOAD COUNT SET BUFFER 
#135, a$LPCSR | :LOAD CONTROL REGISTER 
PLCLK -GO TO COMMON CODE 


#100, a$LLCSR ;LOAD CONTROL REGISTER 


SEQ 0096 


Se ee ee 


- 


~<a «= -- = 


CZRMQBO RMO5/3/2 DSKLS TST 2 
— CLOCK SUBROUTINES 


G 
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;CLEAR TIMER COUNT 
: PUSH OLD PSW AND PC ON STACK 
SAVE THE PSW IN R5 


SAVE _— TY 


;MASK 
Fe By PRIORITY TOO HIGH?? 


:;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
¢POP NEW PC AND PS 


sROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=-L OR KW11-P) 


ADD 17MS TO ELAPSED 7 IME 
:BRANCH IF NO OVERFLOW 
RESTORE MAXIMUM COUNT 
sDECREMENT REMAINING TIME 
:BRANCH IF POSITIVE 
;CLEAR REMAINING TIME 
;RETURN TO USER 


sROUTINES TO STOP THE CLOCK (KW11=L OR KW11-P) 


57 
58 022034 005037 601532 PLCLK: CLR TIME 
59 022040 104400 TRAP 
: 022042 012605 MOV (SP) +,R5 
| 60 022044 010537 001530 MOV —-R5,, $PSW 
| 61 022050 042705 177437 BIC —- #*CPR7,RS 
| 62 022054 022705 000300 CMP = PRO, RS 
63 022060 101005 BHI 40$ 
| 64 022062 012746 000240 MOV = #PRS,,=( SP) 
| 22066 012746 022074 MOV = #30$,=( SP) 
| 022072 000002 RTI 
| 022074 30$: 
| 65 022074 000207 40$: RTS PC 
ce 
68 
69 022076 PCOUNT : 
70 022076 LCOUNT : 
71 022076 062737 000021 001532 ADD «#17, TIME 
72 022104 103003 BCC 10$ 
73 022106 012737 177777 001532 MOV = #1, TIME 
74 022114 162737 000021 001534 10$: SUB #17.,WATCH 
75 022122 100002 BPL = 208 
76 022124 005037 001534 CLR WATCH 
27 022130 000002 208: = RTI 
80 
81 022132 005077 157354 PSTOP: CLR § @$LPCSR 
82 022136 02 BR PLSTP 
84 022140 005077 157356 LSTOP: CLR — @$LLCSR 
86 022144 PLSTP: 
87 022144 013746 001530 MOV —- $PSW, = (SP) 
022150 012746 022156 MOV = #108,-(SP) 
022154 000002 RT] 
022156 10$: 
88 022156 000207 RTS —s PL 


Se re me ee Se eee oe 
ee ee cree ee Sones a ee te ee ce | ee ee 


:STOP P CLOCK 
:GO TO COMMON STOP CODE 


:STOP L CLOCK 
7zPUT NEW PS ON STACK 


::PUT NEw PC ON STACK 
;zPOP NEW FC AND PS 


SEQ 0097 


a 
_ — ee eee ee 


AUF W OW WON MPWP 


27 022264 
28 022272 
29 022500 


CZRMQBO RMO5/3/2 DSKLS TST 2 
SET VOLUME V4LID SUBROUTINE 


022404 
000001 


0000 
0C0012 
177677 


001136 


00 
000922 
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~SBTTL SET VOLUME VALID SUBROUTINE 
: THIS SUBROUTINE a phat 47 THE SUBSYSTEM AND SETS VOLUME VALID, 


:RETURNING WITH THE D 


RIVE STILL_IN DIAGNOSTIC MODE. 


THE SUBROUT INE 


;RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS 


:DET ECTED, IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


“CALL: JSR PC, SETVV JUMP TO SUBROUTINE 
; BR 27 RETURN HERE IF NO ERROR 
: ERROR RETURN HERE IF ERROR 
SETVV: 
2 gil PC, CNTCLR :GO CLEAR CONTROLLER 
000024 MOV DMD, RMMR1(RO) LOAD 
000024 MOV #DMD 'MUR,R 0) :LOAD RMMR1 
000014 MOV #0O,RMER1(RO) LOAD RMERT 
000042 MOV #0. RMER2 (RO) ;LOAD RMER2 
0000 MOV WPACACK'GO,RMCS1(RO) —-; LOAD RM 
001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT SEDDAT 
001142 BIC #°CVV, $BDDAT 
BNE 10$ :BRANCH IF VOLUME VALID SET 
MOV RO, SBDADR :SETUP FOR ERROR MSG 
001136 ADD #RMDS , SBDADR 
001140 MOV #VV,$GDDAT 
ADD #2, (SP) :MOVE RETURN ADDRESS TO ERROR 
000000 MOVB  #100,a(SP) “WRITE ERROR NUMBER 
001174 MOV #PACACK , $TMPO 
10$: RTS PC RETURN 


SEQ 0098 


rm 2D 


23 362 
24 022570 
25 022374 
26 022402 
27 022402 


012760 


112776 
000207 


MOS/3/2 DSKLS is 2 
T MODE SUBROUTINE 


001001 
000000 
000000 
000015 
000012 
177776 
000001 
001136 
000012 
000002 
000111 


I 
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000024 
000014 
000042 


001142 
001140 
001136 
000000 


.SBTTL SET OFFSET MODE SUBROUTINE 


‘anne ee tae EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 


; SUBROUTINE, WHICH WILL LEAVE DMD ON. 


THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 


THE SUBROUTINE RETURNS TO THE 


;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
; RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


SCALL: 


SETOM: 


10$: 


JSR 
R 


PC,SETOM 
B T7 
ERROR 


JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


ADMD Jay RMMR 1 (RO) ;LOAD RMMR1 
#0,RMER1 (RO) ;LOAD RMER1 

#0 ,RMER2(RO) RMER2 

#OF F SET!GO,RMCS1 (RO) ;LOAD RMCS1 
RMDS(RO), SEDDAT ;STORE RMDS AT $BDDAT 


#*COM,$BDDA 

10$ ;BRANCH IF OFFSET ON 
#0M,SGDDAT 

RO, $BDADR 

ARMDS , SBDADR 

#2, (SP) :MOVE RETURN ADDRESS TO ERROR 
#111,a(SP) ;WRITE ERROR NUMBER 

PC ;RETURN TO USER 


SEQ 0099 


LC A A AS A tse cette LOLOL LLL Lt a it et ee at 
f a 
' 


A eee 
Sn +e eee _ 
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CLEAR CONIROLLER SUBROUTINE SEQ 0100 
} .SBITL CLEAR CONTROLLER SUBROUTINE 
3 ; THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
6 :AND DRIVES, THEN SELECTS THE DRIVE. 
6 JSR PC. CNTCLR :CALL TO ROUTINE 
8 022404 CNTCLR: 
022404 010046 MOV RO,=(SP) ;;PUSH RO_ON STACK 
9 022406 013700 001276 MOV $BASE ,RO :RO = UNIBUS BASE ADDRESS 
10 022412 012760 000040 000010 MOV #CLR,RMCS2(RO) =CLEAR MASSBUS 
11 022420 117760 157042 000010 MOVB = aTSTQUE .RMCS2(RO) ;SELECT DEVICE UNDER TEST 
12 022426 012600 MOV (SP)+,RO ::POP STACK INTO RO 
13 022430 000207 RTS PC “RETURN 


Seite tsise ets ses eens dieses tiouerenneniesitsinastiierereenensten-~eomeesinetnttbiemmsnsimmmnstiintennsahamnantiinis utinsmntununeemn-snssn-n ee 


ee eee 
' 
; 


= <2 --—<- — - _ 


| kK 8 
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SEQ 0101 


| ENABLE SEARCH SUBROUTINE 


} .SBTTL ENABLE SEARCH SUBROUTINE 
3 022432 ENBSCH: 
5 :THE REGISTER OUTPUT BUFFER SHOULD CONTAIN: 
é : RMDAO = DESIRED SECTOR AND TRACK ADDRESS 
? RMDCO Oo = DESIRED CYLINDER ADDRESS 
R : RMOFO = FORMAT, HCI 
9 : RMBAO = BUFFER ADDRESS 
10 RMWCO = WORD COUNT 
1 : RMCS10 = FUNCTION CODE 
1 sNOTE: OFFSET IS NOT ENABLED WHEN USING THIS SUBROUTINE 
15 :SET VOLUME VALID 
16 :FIRST,CLEAR =SET DIAGNOSTIC MODE=SYNCHRONI ZE 
17 =PROM STROBE 
19 022432 004737 022404 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
20 622436 012760 060001 000024 MOV #DMD,RMMR1(RO) =LOAD RMMRI 
21 022444 012704 000041 MOV #33. .R4 sALLOW UP TO 33 BIT CLOCKS 
22 >TO SYNC PROM STROBE 
23 022450 5$: 
022450 012760 005001 000024 MOV #DMD'MUR!MCLK,RMMR1(RO) ;LOAD RMMRI 
24 022456 012760 001001 000024 MOV #DMD ‘MUR .RMMR1 (RO) =LOAD RMMR1 
25 022464 016005 000024 MOV RMMRI(RO).RS  ; STORE RMMRT AT RS 
26 022470 032705 000040 BIT WWC,RS :WAIT FOR PROM STROBE TO COME ON 
27 022474 001023 6$ 
28 022476 005304 DEC R4 
29 022500 001363 BNE 5$ 
30 022502 010037 001136 MOV RO, $BDADR :PROM STROBE WONT SET 
31 022506 737 24 001136 ADD #RMMR 1. SBDADR 
32 022514 005037 001142 CLR DAT 
33 022520 012737 001140 MOV #WC, SGDDAT 
022526 062716 ADD #2, (SP) 
35 022532 112776 000000 MOVB  #30,a(SP) 
922540 000137 023302 JMP 60$ :REPORT ERROR 
37 022544 6$: 
022544 012760 005001 000024 MOV #DMD!MUR'MCLK.RMMR1(RO) :LOAD RMMR1 
38 022552 012760 001001 000024 MOV ADMD ' MUR. RMR (RO) * LOAD RAP 
39 022 16005 000024 MOV RMMRI(RO).RS  ;STORE RMMR1 AT RS 
40 022564 032705 000040 BIT WWE RS *WAIT FOR PROM. STROBE TO GO OFF 
41 022570 001423 BEQ 7$ 
42 022572 005304 DEC RG 
43 022574 001363 
44 022576 010037 001136 MOV RO, $BDADR :PROM STROBE WONT RESET 
45 022 737 24 001136 ADD ARMMR1 , SBDA : 
46 022610 012737 40 001142 MOV #WC, SBDDA T 
47 022616 005037 001140 CLR SCDDA 
48 022622 062716 ADD (sp) 
49 022626 112776 000062 000000 MOVB m5, a(SP) 
50 022634 0600137 023302 JMP 
52 : SECOND, CLOCK INDEX PULSE TO 
53 : (1) CLEAR FORMAT CHANGE FLOP 
4 (3) CLEAR RTC FLOP 


5 
55 022640 





o$: 


LL ELL! LL LLL LLL LL TE LS Te ts tliat tit en en _ 


EE ER Tee — 


i 


c— 


SP Ge ae 


eee 


56 022640 
rH 022646 


39 022654 


70 022746 
71 022754 


74 022756 


012760 
012760 


013760 
013760 
013760 
013760 
013760 


004777 


CZ7RMQBO RMO5S/3/2 DSKLS IST 2 
_ ENABLE SEARCH SUBROUTINE 


001005 
001001 


000000 
000000 
000023 
000012 
177677 


001136 
00012 


000100 
000022 


041401 
000000 
000000 
001412 


000310 
156460 


000024 
137777 


L 
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98 2 
4 023132 112776 000101 
101 023140 000460 

3142 004777 156372 


105 023146 012704 000021 
106 023152 

023152 912760 141401 
107 023160 012760 041401 
108 023166 005304 





000024 MOV #DMD!MUR!MI,RMMR1(RO)  ;LOAD RMMR1 
000024 MOV #DMD ' MUR, RMMR1 (RO) “LOAD RMMR1 
000014 MOV #0, RMERT (RO) : LOAD RMER 1 
000042 MOV #0, RMER2 (RO) OAD RMER2 
000000 MOV #PACACK !GO, amcs1 {ROD sLOAD RMCS1 
001142 MOV RMDS(RO),$8DDAT ;STORE RMDS AT $BDDAT 
001142 BIC # CW, ,$BDDAT : VOLUME VALID SHOULD BE SET 
MOV RO, $BDADR :SETUP ERROR MSG 
001136 ADD #RMDS , SBDADR 
001140 MOV #VV, SGDDAT 
ADD 2, (SP) ;WRITE ERROR NUMBER 
000000 MOVB  #100,a(SP) : 
001174 MOV #PACACK , $TMPO 
BR 60$ 
LOAD REGISTERS 
000006 MOV RMDAO,RMDA(RO) ;LOAD RMDA 
000034 MOV RMDCO,RMDC(RO) :LOAD RMDC 
000032 MOV RMOFO.RMOF (RO) =LOAD RMOF 
000002 MOV RMWCO,RMWC(RO) =:LOAD RMwC 
000004 MOV RMBAO.RMBA(RO) :LOAD RMBA 
sENABLE DEBUG CLOCK AND LOAD FUNCTION CODE 
000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 1iRO) :LOAD RMMRI 
000014 MOV #0,RMER1(RO) :LOAD RME 
000042 MOV #O.RMER2(RO) = LOAD AMER? 
000000 MOV RMCS10,RMCS1(RO) :LOAD RMCS1 
:WAIT FOR "RUN AND GO"’ TO SET 
001534 MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
si JSR PC aCLOCk [START THE CLOCK 
001142 "(MOV RMMR1 (RO). SEDDAT : STORE RMMR1 AT SBDDAT 
001142 BIC #°CRG, SBDDAT 
BNE 30$ 
st WATCH ANY _Uine LEFT? 
JSR PC ,aSTOPCL ‘STOP THE CLOCK 
001140 MOV #RG, SGDDAT :SETUP ERROR MSG 
MOV RO, $8DADR 
001136 ADD #RMMR 1, SBDADR 
ADD #2, (SP) :WRITE ERRO® NUMBER IN 
000000 MOVB  #101,a(SP) sUSEA'S CALL - 
BR 60$ 
30$: 
JSR PC, aSTOPCL :STOP THE CLOCK 
:STEP COMMAND SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS) 
oe MOV #17. RG :RG=CLOCK COUNT 
000024 "MOY #DMD ! MUR! DBEN!MOC ! DBCK, RMMR1 (RO) :LOAD RMMR1 
000024 MOY #DMD ! MUR! DBEN! MOC “RMMR 1 (RO) :LOAD RMMR} 


LT TT ee teen 


109 023170 001370 


dd ced ed ceed ed wed ceed ed cad 
WOONAULSWY oO 


te nd ed nd ed ot? 4 8d dd 0 od = 
WHS 
Nm 


MMMNMN 


132 0233502 


12760 
12760 


oOo 


062716 
112776 
000207 


CZ2MQB0 RMOS/3/2 DSKLS TST 2 
ENABLE SEARCH SUBROUTINE 


041001 
041401 
000043 
151401 


051401 
000024 
173777 
001136 
000024 


000 
000002 
000102 


—_ 


SO ee eee Sr | ee ee —_— ~——— 
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BNE 40$ 


:DROP ON CYLINDER — LATCH, THEN SET ON CYLINDER TO PASS 


:TEST AT LOCATION 
MOV 


000024 #DMD !MUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 
000024 MOV #DMD ! MUR! DBEN! MOC ,RMMR1 (RO) 
:STEP SEQUENCER (35 CLOCKS) AND VERIFY SEARCH 
none MOV #35. ,R4 +R4=CLOCK COUN 
000024 "MOV #DMD !MUR ! DBEN! MOC ! DBCK !MSEN, RMMR1 (RO) 
000024 MOV #DMD ! MUR ! DBEN! MOC !MSEN, RMMR i (RO) 
BNE 50$ 
001142 MOV RMMR1 (RO), $BDDAT ST 
001142 BIC #CESRC , SBDDAT :SEARCH SHOULD BE E 
MOV RO, $BDADR :SETUP ERROR MESSAGE 
001136 ADD #RMMR1, SBDA 
001140 MOV HESRC,$GDDAT 
ADD #2, (SP :WRITE ERROR NUMBER 
000090 MOVB  #102,a(SP) 
60$: 
RTS PC 


E RMMR1 AT SBDDAT 
NABLED 


SEQ 0103 


i a ee ee ee ee ee ee - ae e = 


| N 8 
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SECTOR COMPARE SUBROUTINE SEQ 0104 


1 .SBTTL SECTOR COMPARE SUBROUTINE 
3 :THIS SUBROUTINE CONTINUES THE EXECUTION OF A DATA COMMAND 
4 FROM WHERE SEARCH HAS BEEN ENABLED TO WHERE SECTOR COMPARE 
6 e@ 
f 023304 SCTCMP: 
9 :SET INDEX PULSE TO CLEAR FORMAT CHANGE FLOP 
10 023304 012760 051405 000024 MOV #DMD ! MUR! DBEN!MOC !MSEN!MI ,RMMR1 (RO) :LOAD RMMR1 
1 023312 012760 051401 000024 MOV #DMD ‘MUR ! DBEN! MOC 'MSEN, RMMR1 (RO) 7LOAD RMMR1 
13 :WAIT AT LEAST 4 MS FOR ‘'RETURN TO CENTER LINE’’ ONE SHOT TO SET 
14 023320 012737 000006 001534 MOV #6,WATCH :SET WATCHDOG TIMER VALUE 
023326 004777 156204 JSR PC, a@CLOCK *START THE CLOCK 
15 023332 005737 001534 10$: TST WATCH 
16 023336 0017375 BNE 10$ 
7 023340 004777 156174 JSR PC, a@STOPCL :STOP THE CLOCK 
19 DATA. INPUT TO SEARCH ENABLE FLOP SHOULD BE ONE - CLOCK SECTOR PULSE TO 
21 023344 012760 051441 000024 ~ MOV #DMD !MUR ! DBEN! MOC !MSEN! MS ,RMMR1 (RO) :LOAD RMMRI 
22 023352 012760 051401 000024 MOV #DMD ! MUR '! DBEN! MOC 'MSEN, RMMR1 (RO) =LOAD RMMR1 
24 ;WITH SECTOR COMPARE HIGH, CLOCK SECTOR PULSE TO SET SECTOR COMPARE FLOP 
25 023360 012760 051403 000024 MOV #DMD ! MUR ! DBEN! MOC !MSEN! MSC, RMMR1 (RO) :LOAD RMMR1 
26 023366 012760 051443 000024 MOV #DMD 'MUR!DBEN!MOC !MSEN'MSC'MS,RMMR1(RO) :LOAD RMMR1 
27 023374 012760 051403 000024 MOV #DMD ! MUR ! DBEN! MOC !MSEN!MSC,RMMR1 (RO) =LOAD RMMR1 
28 023402 012760 051401 000024 MOV #DMD '! MUR! DBEN! MOC 'MSEN, RMMR1 (RO) =LOAD RMMR1 


29 
30 023410 000207 RTS PC 


SE Sk 


27 023510 
28 


30 
31 023512 


45 023572 


012760 
60 


055401 
051401 
pote 


000260 


055401 
051401 
000024 
002000 


000002 
000035 


000024 
000040 


C55401 
051401 


000024 
000040 


055401 
051401 


000024 
000024 


000024 


000024 
000024 


000024 
000024 


-SBTTL SET LOOKING FOR SYNC SUBROUTINE 


;THIS SUBROUTINE WILL SETUP THE DATA TIMING SEQUENCER 
;ASSUMING SEARCH IS ENABLED, TO THE POINT WHERE 'PLFS'' IS ACTIVE 


SETLFS: 

;PULSE BIT CLOCK UNTIL PROM STROBE SETS 
"MOV #DMD {MUR | BEN! MOC {MSEN!MCLK sROMIR (RO) :LOAD RMMP1 
MOV #DMD ' MUR | DBEN' MOC 'MSEN.RMMR1 (RO) es [LOAD RMME 1 


MOV RMMR1 (RO) ,R5 81 ORE RMMR1 AT 
BIT =" 


BEQ 
:SET UP DATA SEQUENCER TO LOCATION 11. WHERE PLFS WILL SET 
ee MOV #176. RG :MAX NUMBER OF BIT CLOCK 
MOV #DMD !MUR ! DBEN!MOC !MSEN!MCLK .RMMRT(RO) — : LOAD RMMR1 
MOV #DMD ' MUR ' DBEN' MOC 'MSEN, RMMR1 (RO) “LOAD RMMAR1 
MOV RMMR1(RO).R5  :STORE RMMR1 AT RS 
BIT #PLFS RS MEXIT. iF PLFS IS SET 
BNE  ; 30$ 
DEC R4 ;ERROR IF COUNT EXHAUSTED 
ADD #e (SP) : 
MOVB #35,a(SP) [CANT SET PLFS 
BR 50$ 


sSTEP THE MAIN REG CLOCK UNTIL THE TRAILING EDGE OF PROM STORBE 
;I1S DETECTED. 


30$: 
MOV RMAR1 (RO) RS ;STORE RMMR1T AT RS 
BIT AWC RS 
BNE 40$ 
MOV WPRIAAA'MCLK.RMMRI(RO) ;:LOAD RMMR1 
MOV MMR IAAA, RMMR1(R RO) :LGAD RMMARI 
aa BR 50$ 
MOV — RMPART (RO) RS :STORE RMMART AT RS 
BIT. #WC RS 
BEQ 50% 
MOV AMRIAAA'MCLK, — (RO) ;LOAD RMMR1 
MOV AMRIAAA, RMMR 1 ( RO) ;LOAD RMMR1 
BR 40$ 
50$: 
RTS PC sEXIT 


~ 


. % 
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— CLOCK SYNC SUBROUTINE SEQ 0106 


1 .SBTTL CLOCK SYNC SUBROUTINE 
‘ :THIS SUBROUTINE WILL SIMULATE THE HEADER AND DATA SYNC 
4 “PATTERN BEING READ 
6 023574 CLKSNC: 
8 :VERIFY THAT 'PLFS'’ IS ON 
9 023574 016004 000024 MOV RMMR1(RO).R4  ;STORE RMMR1 AT RG 
10 023600 032704 002000 BIT AP_FS RG ‘LOOK FOR SYN SET ? 
11 023604 001023 BNE 10$ “BRANCH IF SO 
12 023606 010437 001142 MOV R4, $BDDAT 
13 023612 042737 175777 001142 BIC #°CPLFS,$BDDAT 
14 023620 012737 002000 001140 MOV #PLFS,$GDDAT 
15 0 010037 001136 MOV : R 
16 023632 062737 000024 001136 ADD #RMMR 1, SBDADR 
17 023640 062716 000002 ADD #2, (SP) 
18 023644 112776 000035 000000 MOVB W38,aSP) 
19 023652 000472 BR 
20 623654 012705 000021 10$: MOV ore ORS ;MAKE SURE PROM STROBE IS OFF 
21 023660 032704 000040 20$: BIT #WC RS 
22 02366% 001434 BEQ 30$ 
23 023666 012760 055401 000024 MOV #MRIAAA'MCLK.RMMRT(RO) :LOAD RMMRT 
24 023674 012760 051401 000024 MOV #MR1AAA.RMMR1 (RO) *LOAD RMMR1 
25 023702 016004 000024 MOV RMMR1(RO).RG ;STORE RMMR1 AT RG 
26 023706 005305 DEC R5 
27 023710 001363 BNE 20$ 
29 :ERROR CAN'T RESET PROM STROBE WITH LFS ACTIVE 
30 023712 010437 001142 MOV R4,$BDDAT :SETUP ERROR FOR USER 
31 023716 042737 177737 001142 BIC #°CWC ,SBDDAT 
32 023724 005037 007140 CLR & 
33 023730 010037 001136 MOV RO, SBDADR 
34 023734 062737 000024 001136 ADD :. 
35 023742 062716 000002 ADD #2, (SP) 
36 023746 112776 000062 000000 MOVB #6e.a(SP) 
37 023754 000431 BR 
39 “CLOCK THE SYNC PATTERN (00011001) THROUGH THE SHIFT REGISTER 
40 023756 30S: 
41 023756 012704 014400 MOV #014400.R4 
42 023762 012737 000020 024042 MOV #16., 708 :STROBE BIT COUNT 
43 023770 012705 051401 40$: MOV #MRIAAA RS *GENERATE REG VALUE 
23774 000241 CLC *WITH MAINTENANCE CLOCK ON 
45 023776 ROR RG 
46 024000 103002 BCC 50$ 
47 024002 052705 002000 BIS #MRD RS :SET READ BIT PER PATTERN BIT 
49 024006 50S: 
4 010 000024 MOV R5,RMMR1 (RO) :LOAD RMMR1 
50 024012 052705 004000 BIS LK, 
51 024016 010560 000024 MOV R5,RMMR1 (RO) :LOAD RMMR1 
52 024022 042705 004000 BIC #MCLK RS :CLOCK ONE BIT 
53 024026 010560 000024 MOV R5.RMMR1 (RO) :LOAD RMMR1 
54 024032 005337 024042 DEC 70$ 


—_——- _ —_— -—- —_—— --— - - -- —_— 


| B.. 
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~ CLOCK SYNC SUBROUTINE ' 


57 :CAN*T VERIFY SYNC CLOCK WAS DETECTED 


SEQ 0107 


| 58 “USER CAN DO SO BY STEPING 

| 59 “BIT CLOCK AND VERIFY PROM STROBE SETS WITHIN ONE WORD TIME 
| 60 024040 60$: 

| 61 924060 000207 RTS Pc 

| 63 024042 000000 70$: . WORD O : TEMPORARY STORAGE 


— 


oe ane 


LS I ET CC ES pene 
S ee ee eee eee LT a ae Se ke 


e 
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| SAVE AND RESTORE RO=R5 ROUTINES 


1 ~SBTTL SAVE AND RESTORE RO=R5 ROUTINES 


PERERA AAA EAA EEE REHEAT AREER eKhe 


: SSAVE RO=R5 
*CALL: 


be SAVREG 
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


:* 
;*TOP=-=(+16) 


:* +2=-=-(+18) 
se +4=-=R5 
p® +6---R4 
7% +8---R3 
3*+10---R2 
3%*12---R1 
> *+14=-=--R0 
024044 SSAVREG: 
024044 010046 MOV 
C24046 010146 MOV 
024050 010246 MOV 
024052 010346 MOV 
024054 010446 MOV 
024056 010546 MOV 
016646 000022 MOV 
024064 016646 000022 MOV 
024070 016646 000022 MOV 
024074 016646 000022 MOV 
024100 000002 RTI 
es tia RO-R5 
od RESREG 
024102 SRESREG 
024102 012666 000022 
024106 012666 000022 MOV 
024112 12666 000022 MOV 
024116 012666 000022 MOV 
024122 -012605 MOV 
024124 2604 MOV 
024126 2 MOV 
C24130 012602 MOV 
024132 012601 MOV 
024134 012600 MOV 
024136 RT] 


RO,=(SP) 


22(SP) ,=-(SP) 


(SP) +,22(SP) 


(SP)+,RO 


>: SAVE 


7 RESTORE PC 
: RESTORE PS 
see rone PC 

io on PS 


;zPOP STACK 
7;POP STACK 


OF CALL 
OF CALL 
OF MAIN FLOW 
1d Ry FLOW 


INTO RO 


SEQ 0108 


! . 2 
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~SBTTL BINARY TO ASCII AND TYPE ROUTINE | 


| ROI ISI IUIUIUIUIISISISIIISINIISISIIIUIUIUIOIUIIIOIIOIIIISIIUIUIIIIDIUIUIIIOIIO III tn 
| SSTHIS ROUTINE IS USED TO CHANGE P 16-BIT BINARY NUMBER TO A 16-B1T 
| : *BINARY=ASC1] NUMBER AND TYPE IT 


| >*CALL: 
;* MOV NUMBER , = (SP) ;;NUMBER TO.BE TYPED 
| ;* TYPBN SsTYPE 17 
| 024140 010146 $TYPBN: MOV R1,-(SP) :-SAVE R1 ON THE STACK 
024142 016601 000006 MOV BSP) R1 ;;GET THE INPUT NUMBER 
| 024146 000261 SEC ;:SET *'C’' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
| 024150 112737 000060 024212 1$: MCVB #'0,$BIN ;2SET CHARACTER TO AN ASCII ’'0’’. 
024156 006101 ROL R1 +3GET THIS BIT 
024160 001406 BEQ 2$ 7D 
024162 105537 024212 ADCB $BIN NOS =SET sha CHARACTER EQUAL TO THIS BIT 
024166 104401 024212 TYPE , $BIN +360 TYPE THIS BIT 
024172 000241 CLC ;CLEAR *'C’’ SO CAN KEEP TRACK OF BITS 
024174 000765 BR 1$ GO DO THE NEXT BIT 
624176 012601 2$: MOV (SP)+,R1 POP THE STACK INTO R1 
024200 016666 000002 000004 MOV 2(SP) ,4(SP) : ADJUST THE STACK 
024206 012616 MOV (SP) +, (SP) 
024210 000002 RTI ; RETURN TO USER 


024212 000 000 SBIN: .BYTE 0,0 3sSTORAGE FOR ASCII CHAR. AND TERMINATOR 


4 seinem ee 


FA I A I A 


024214 


CZRMQBO RMOS/3/2 DSKLS TST 2 
CONVERT BINARY TO DECIMAL AND TYPE ROUT! 


020200 
000020 
060055 


024430 
000040 


024420 


000001 
000060 
000040 


000010 


177777 


9 
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000001 


177777 


177776 


~ SBITL 


> *NUMBER IS POSITIVE OR NEGATIVE A 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MARRS SELE SESE SSE SESE EEE EET EPEC T ETE PCPS CCC S ICSAC L SLL ei ae t 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5=DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
:*REPLACED WITH SPACES. 


> *CALL: 


$TYPDS: 


7$: 


8$: 


o$: 


MOV 
TYPDS 


NUM, = (SP) 


RO,-(SP) 


(SP) 
6$ 
MY gf -1(R3) 


Ro” 


9$ 
~1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP) +,R1 


¢sPUT_THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


;zPUSH RO ON STACK 
;sPUSH R1 ON STACK 
;PUSH Rz ON STACK 
; PUSH R3 ON STACK 
cere R5 ON STACK 
T BLANK oe BS AND SIGN 
T NUMBER 


HE A 
ZERO THE CONSTANTS INDEX 
;-SETUP THE OUTPUT POINTER 
7:SET THE FIRST CHARACTER TO A BLANK 
;;CLEAR THE BCD NUMBER 
at 2 THE CONSTANT 
sé FORM THIS BCD DIGIT 


;BR-IF DONE 
>; INCREASE THE BCD DIGIT BY 1 


:zADD BACK THE CONSTANT 
Sioa ae BCD DIGIT=0 


L THROUGH IF 0 
Hanif a LEADING 0°S? 


33 IF NO 
:;YES--SET THE SIGN 
7zMAKE THE BCD DIGIT ASCII 
Ae tea IT A SPACE IF NOT ALREADY A DIGI 
;PUT THIS CHARACTER IN THE OUTPUT BUFF 
+: JUST INCREMENT ING 
tiny THE TABLE INDEX 
O DO THE NEXT DIGIT 
=:GO TO EXIT 
+ 3GET THE LSD 
:GO CHANGE TO ASCII 
; WAS i THE FIRST NON-ZERO? 


iE YES"=SET THE ei eee FOR TYPING 


T 
ER 


;;POP STACK INTO R1 


SEQ 0110 


RR a Se ene eee inert tteeenieettnttitit ect stein en taait 


SL EE semen cee 


CZRMQBO RMOS/5/2 DSKLS TST 2 


_ CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


—_- Se. ener ere ae - 


024430 


012600 
104401 


624430 
CO0002 000004 


$DTBL: 


$DBLK: 


10, 


(SP)+,RO 
$DRiK 
5(SP) ,4(SP) 
(SP)+, (SP) 


4 


H 9 
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;:POP STACK INTO RO 
iiNOW TYPE THE 
;sADJUST THE S'ACK 


;;RETURN TO USER 


NUMBE RK 


— CZ2RMQBO RMOS/3/c DSKLS TST 2 


' BINARY TO OCTAL (ASCII) AND TYPE 


| 


le ee ee ee 


024440 


024665 


000006 
024664 
024663 
000012 


024664 
177770 





-. 
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~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


UIGIOISISIOIOIOISIOIIIUIOIUIOIOIOIUISISIOIINISIISIUIIUIUIIUIIIIIUIUIIDIIUIIUIIOIIDIIIIIIR Ratt 
SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
¢éCALL FOR TYPEOUT 
; iN=1 . S FOR NUMBER OF DIGITS TO TYPE 


;21=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


‘wine wn tea TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


>*CALL: 
e* MOV NUM, = (SP) 
se TYPOS 
.* -BYTE N 
;* -<BYTE ™M 
:* 
se 
s* 
>*$TYPOS OR $T 
>*CALL: 
7* MOV NUM, - (SP) 
i 7YPON 


5* MOV NUM ,=-(SP) 
=e TYPOC 
$TYPOS: MOV a(SP) ,-(SP) 


024663 VB 1(SP) , SOF ILL 
MOVB (SP)+, E+1 
ADD #2, (SP) 
BR $STYPON 
024663 $TYPOC: MOVB #1, SOF ILL 
024665 MOVB : + 
024662 $TYPON: MOVB #5, SOCNT 


MOV R5,-(SP) 
MOVB +1,R4 
NEG RG 


ADD #6 RS 
MOVB R4, SOMODE 
MOVB SOF ILL ,R4 
MOV 12(SP) ,R5 
CLR R3 

1$ ROL R5 
BR 3$ 

2$ ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 

3$ ROL R3 
DECB SOMODE 
BPL 7$ 
tas #177770,R3 
TST R4 
BEQ 5$ 

4$: INC R4 


;;NUMBER TO BE TYPED 
;sCALL FOR TYPEOUT 


-* 
se HERE FOR TYPEOUT OF A 16 BIT NUMBER 


; sNUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


:2PICKUP THE MODE 
+ LOAD ey FILL SWITCH 

R OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


72SET THE ZERO FILL SWITCH 
7zSET FOR SIX(6) DIGITS 
ser - ITERATION COUNT 


THE NUMBER OF DIGITS TO TYPE 


3;SUBTRACT IT FOR MAX. ALi CuSD 
;:SAVE IT FOR US 

:;GET THE ZERO FILL SWITCH 
:zPICKUP THE INPUT —" 

7 CLEAR THE OUTPUT WOR 

es ROTATE Bo INTO cn 


DO 
::FORM THIS DIGIT 


:GET LSB OF THIS DIGIT 
TYPE i Sy DIGIT? 


:iGE] RID OF JUNK 
TEST FOR O 
i 3 SUPPRESS THIS Q? 


YES 
; DON" : SUPPRESS ANYMORE O'S 


SEQ 0112 


LL A A < SVE seme 


i 9 
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| BINARY TO OCTAL (ASCII) AND TYPE SEQ 0113 
| 024604 052703 000060 BIS #'0,R3 :;MAKE THIS DIGIT ASCII 
024610 052703 0600040 S$: BIS #' “RZ + 7 MAKE ASC IF NOT ALREADY 
024614 110337 024660 MOVE  R3,8$ ::SAVE FOR TYPING 
024620 104401 024660 TYPE $ *:GO TYPE THIS DIGIT 
024624 105337 024662 7$: DECRB $0CNT +: COUNT BY 1 
024630 003347 BGT 2$ :;BR IF MORE TO DO 
024632 002402 BLT 6$ “BR IF DONE 
024634 005204 INC R4 +: INSURE LAST DIGIT ISN'T A BLANK 
024636 000744 BR 2$ ::GO DO THE LAST DIGIT 
024640 012605 6S: MOV (S?)+,R5 «RESTORE R5 
024642 012604 MOV (SP) +.RG * "RESTORE RG 
024644 012603 MOV (SP) +_R3 *:RESTORE R32 
024646 016666 000002 000004 MOV 2(SP).4(SP) *:SET THE STACK FOR RETURNING 
024654 012616 MOV (SP) +. (SP) 
024656 000002 RT] + :RETURN 
024660 000 8$: .BYTE 0 ;;STORAGE FOR ASCII DIGIT 
024661 000 -BYTE 0 : TERMINATOR FOR TYPE ROUTINE 
024662 000 SOCNT: .BYTE 0 “:OCTAL DIGIT COUNTER 
024663 000 SOFILL: .BYTE 0 :: ZERO FILL SWITCH 
624664 000000 SOMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 


Tt TS A sti eats ee _ 


ow LLL LE OL LE A et et i, came 


a ee 
OL TT + 


CZRMGBO RMOS/3/2 DSKLS TST 2 
TYPE ROUTINE 


02 
025052 


105737 
100002 
000000 


013746 
105366 
002770 
004737 
105337 
000770 


001173 


000002 
000001 


000100 


024736 
031300 


000040 


000002 
000011 
000200 


025216 
025100 
001172 
001170 


000001 


025100 
025216 


K 
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001242 
001243 


001243 


. SBTTL 


; *NOTE 


: *NOTE2: 
; *NOTE3: 


9 


TYPE ROUTINE 


DIOR IIIIIIIUIIIIISIOINIIIUIISIOIIIIUIIIIIUIII REI Ena tnt 
® SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O pt 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS 
$FILLC CONTAINS 


*CAL 
1) “USING A TRAP INSTRUCTION 
»MESADR 


: OR 


61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


YPE 


TYPE 
MESADR 





STPFLG 
1$ 


#APTSPOOL , SENVM 
62$ 


RO,61$ 
eeatatile 


#APTCSUP, SENVM 
(RO) +,-(SP) 

4$ 

(SP)+ 

(SP) +,RO 

#2, (SP) 

HHT, (SP) 
#CRLF , (SP) 

5$ 


(SP) + 


—— 


r4 
PC, ,$TYPEC 
genet Sar? 


2 
$NULL ,~ (SP) 
1(SP) 

$ 


6 
PC, $TYPEC 
$CHARCNT 
7$ 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 


::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


215 os A TERMINAL? 

7BR IF YES 
; sHALT HERE IF NO TERMINAL 
es EAVE 


SAVE RO 
SIGET ADDRESS OF ASCIZ STRING 
ING IN APT MOD 


a E 
;NO,GO CHECK FOR APT CONSOLE 
:7SPOOL MESSAGE TO APT 


ee a 
7 zMESSAGE ADDRESS 
73APT CONSOLE SUPPRESSED 


+3 YES, SKIP TYPE OUT 
;PUSH CHARACTER TO BE TYPED ONTO STACK 
:;BR IF IT ISN'T THE TERMINATOR 
:21F TERMINATOR POP IT OFF THE STACK 
: RESTORE RO 
‘ee RETURN PC 


2 sRETURN 
;;BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


zPOP <CR><LF> a 
:ITYPE A CR AND L 


+s CLEAR gS. COUNT 


33 0 NEXT CHAR. 
:sGET # OF FILLER CHARS. NEEDED 
;sAND THE NULL CHAR. 
; :DOES A NULL NEED TO BE TYPED? 
IF ved ‘ez THE NULL OFF OF STACK 
£260 TYPE A 
;DO - COUNT AS A COUNT 


SEQ 0114 


———L A <u 
| — a NT a 


. . = 
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_ TYPE ROUTINE SEQ 0115 


— 


;HORIZONTAL TAB PROCESSOR 


025054 112716 000040 8$: MOVR #* ,(SP) : :REPLACE TAB WITH SPACE 
025060 004737 025100 9$: JSR PC, $TYPEC iE TYPE A PACE 
5064 132737 000007 025216 BITB #7. $CHARCNT RANCH iF NOT AT 

025072 001372 BNE 9$ +: TAB STOP 

025074 005726 TST (SP) + ::POP SPACE OFF STACK 

025076 000724 BR 2$ *=GET NEXT CHARACTER 

025100 S$TYPEC: 
025100 105777 154054 TSTRB = @STKS ;;CHAR_IN KYBD BUFFER? 
025104 100022 BPL O$ ;/BR IF NOT 

025106 017746 154050 MOV a$TKB,~-(SP) “GET CHAR 

025112 042716 177600 BIC #177600, (SP) ; 3 STRIP EXTRANEOUS BITS 
025116 122716 000023 CMPB so MSXOFF., (SP) ;7WAS CHAR XOF F 

025122 001012 | BNE $ i 

025124 101$: 
025124 105777 154030 TSTB = @STKS :;WAIT FOR CHAR 

025130 100375 BPL 101$ 
625132 117716 154024 MOVB TKB, (SP -:GET C 

025136 042716 177600 BIC #177600,(SP)  ::STRIP IT 

025142 122716 000021 CMPB ss HS ON, (SP 7:WAS IT XON? 

025146 1 BNE 101$ 3;7;BR IF NOT 
025150 102$: 
025150 005726 TST (SP)+ :FIX STACK 

025152 10$: 
025152 105777 154006 TSTB as TPs :;WAIT UNTIL PRINTER IS READY 
025156 100375 BPL 10$ 
025160 116677 000002 154000 MOVB = 2( SP) astPe ::LOAD CHAR TO BE TYPED INTO DATA REG. 
025166 122766 000015 000002 CMPB —s- CR, 2 SP) i218 CHARACTER A CARRIAGE RETURN? 
025174 001003 BNE 1$ H IF NO 

025176 105037 025216 CLRB § $CHARCNT 7: YES~=CLEAR CHARACTER COUNT 
025202 BR STYPEX T 

25 122766 000012 000002 1S: CMPB ss MLF., 2 (SP) 1S CHARACTER A LINE FEED? 
025212 001402 BEQ STYPEX H IF YES 

025214 105227 INCB ss (PC) + >: COUNT THE CHARACTER 
025216 SCHARCNT:.WORD 0 > > CHARACTER COUNT STORAGE 
025220 000207 $TYPEX: RTS PC 


-——___-— 


_ CZRMQBO RMOS5/3/2 DSKLS TST 2 
/ SCOPE HANDLER ROUTINE 
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SEQ 0116 


~SBTTL SCOPE HANDLER ROUTINE 


SRA RAAT 


S RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


:*THE SWITCH weit PROVIDED BY THIS ROUTINE ARE: 


*SW14=1 LOOP ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
> *SWO9=1 LOOP ON ERROR 
: sSWOB=1 LOOP ON TEST IN SWR<7:0> 
& 
:* SCOPE :: SCOPE=I0T 
025222 SSCOPE: , 
025222 104410 CKSWR ;iTEST FOR CHANGE IN SOFT~SWR 
025224 032777 040000 153722 1$ BIT #B1T14,aSWR {LOOP ON PRESENT TEST? 
025232 001402 REQ 9$ 7:NO IF SW14=0 
025254 137 025664 JMP SOVER >: JUMP OVER SCOPE ROUTINE 
:MAARASTART OF CODE FOR THE XOR TESTERMMHAA 
025240 000416 $XTSTR: BR 6$ :1F RUNNING ON THE "XOR’’ TESTER CHANGE 
:THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
025242 013746 MOV @NERRVEC,~(SP) SAVE THE CONTENTS OF THE ERROR VECTOR 
025246 012737 025266 000004 MOV #5$,QMERRVEC ;;:SET FOR TIMEOUT 
025254 005737 17706 TST ay : TIME XOR? 
25260 012637 MOV (SP)+,@WERRVEC RESTORE THE ERROR VECTOR 
025264 000561 BR SSVLAD :GO TO THE NEXT TEST 
5266 022626 S$: CMP (SP) +, (SP) + 7:CLEAR THE STACK AFTER A TIME OUT 
025270 012637 000004 MOV (SP)+,@WERRVEC RESTORE THE ERROR VECTOR 
025274 000521 BR 7$ LOOP ON THE PRESENT TEST 
025276 6$::#AAAAEND OF CODE £OR. THE XOR TESTERMMMAH 
025276 032777 000400 153650 BIT #B1T08.a ::LOOP ON SPEC. TEST? 
25 001421 BEQ 2$ ::BR IF NO 
25 005046 CLR =(SP) 3 CLEAR A TEMP. LOCATION 
025310 117716 153640 MOVB  aSwWR, (SP) >:PICKUP THE DESIRED TEST NUMBER 
025314 001414 BEQ > BRANCH IF BAD TEST NUMBER IN SwR 
025316 022716 000024 CMP #24, (SP) ;7CHECK THE NUMBER IN THE SWR 
025322 002411 BLT > ;BRANCH IF TEST NUMBER IS OUT OF RANGE 
025324 011637 001116 MOV (SP) ,STSTNM : | UPDATE THE TEST NUMBER 
5330 605316 DEC (SP) KUP BY ONE 
025332 31 ASL i 7 SCALE THE TEST NUMBER AS AN INDEX 
25334 062716 025702 ADD #$SWOBTBL,(SP) ::FORM THE ADDRESS OF TEST POINTER 
025340 013637 001122 MOV a(SP)+,$LPADR ISET LOOP ADDRESS TO DESIRED TEST 
025344 547 BR SOVER O LOOP ON THE TEST 
025346 005726 8$: TST (SP) + 7: CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
025350 105737 001117 2$: TSTB = $ERFLG ;7HAS AN ERROR OCCURRED? 
025354 001502 BEQ : F NO 
025356 022737 177777 026342 CMP #-1,CPSAVE ISEB IF TIMEOUT WAS PREVIOUSLY RECORDED 
25 001455 BEO 2003$ =KICK AROUND ROUTINE IF SO 
5366 013746 000004 MOV ERRVEC,-(SP) : 3 SAVE CONTENTS OF ERROR VECTOR 
025372 012737 025410 000004 MOV #2000$,ERRVEC ::SETUP ' "RETURN ADDRESS 
254 013737 177766 026342 MOV 20018." “CPSAVE ::MOVE CPU ERROR REGISTER T!) CPSAVE FOR TEST 
025410 012737 177777 026342 2000$: MOY VE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
025416 012716 025424 MOV #20018 CB) =: SETUP RETURN ADDRESS 


eee hs testa esse etetnstttavees et ee eee — sae enn ee ree 
r 


CZRMQBO RMO5S/3/2 tim? TST 2 


SCOPE HANDLER ROU 


—_—— = 


025424 
025430 
0 


2 
025702 
025702 


025726 


012637 
022737 
001430 


0126357 
123737 


011524 


000004 
177777 
000001 
000001 
001154 
000000 
000176 
153454 
001000 
000000 
001154 
001131 
001000 


001124 


001117 
001206 


004000 
001230 


—2> 
Wo 


——— 


re en ee ee ee ee oe eee 
- 
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026342 
026342 
177766 


001154 
153446 


001117 
153416 
001122 


153364 


001120 


001120 
001206 


001226 


1151 
3264 


2001$: 
2002$: 


2003$: 


1$: 


$SVLAD: 


SOVER: 


MOV 


SMXCNT: 20. 


(SP) +, ERRVEC 
#-1, CPSAVE 
#81T00, CPSAVE 
#B1T00,177766 
SWR,=(SP 
a(SP) ,=(SP) 
#176, SWR 

(SP) -aSWR 
#1709, aswR 


(SP) +,a(SP) 
(SP) +, SWR 


SERMAX , SERFLG 
“© gece 
SLPERR ,$LPADR 
SOVER 


SERFLG 
Ea 


$ 
#B1T11,aSWR 
1$ 


SPASS 
1$ 


SICNT 

STIMES ,SiCNT 

SOVER 

#1 .S1CNT 

arava’ oSTIMES 

STSTNM,STESTN 
ADR 


(SP) ,$LP 
(SP) ,SLPERR 
SCAPE 


#1,SERMAX 
$STSTNM,@DISPLAY 
SLPADR, (SP) 


TST1+2 


;sRESTORE CONTENTS OF ERROR VECTOR 
‘+SEE a ey HAS CPU ERR REG TIMEOUT INDICATION 
3 SEE at THE POWER MONITOR BIT IS ON 


: VALUE 
SIGET SOF TWARE SWR ADDRESS 
*iGET CURRENT SWR VALUE 
ON’T ALLOW LOOP ON ERROR ON THIS ERROR 
i 3 CALL SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
:;RESTORE SWR ADDRESS 


: :MAX. | ERRORS FOR THIS TEST OCCURRED? 
* LOOP ON ERROR? 
::SET LOOP ADDRESS TO LAST SCOPE 


+3 ZERO THE ERROR FLAG 

AR THE R OF ITERATIONS TO MAKE 
:7ESCAPE TO THE NEXT TEST 
Tt. 


saTF FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 

> INCREMENT ITERATION COUNT 

+3 CHECK THE NUMBER OF ITERATIONS MADE 
; IF MORE ITERATION REQUIRED 
::REINITIALIZE | THE ITERATION COUNTER 
NUMBER OF ITE TO DO 


RATIONS T 
2: COUNT TEST NUMBERS 
T TEST NUMBER Sete 


ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 

DISPLAY TEST NUMBER 

7;FUDGE RETURN ADDRESS 

2sFIXES PS 

7eMAX. NUMBER OF ITERATIONS 


:¢ STARTING ADDRESS OF 
: STARTING ADDRESS OF 
; : STARTING ADDRESS OF 


= STAR TING ADDRESS OF 
s: STARTING ADDRESS OF 
;; STARTING ADDRESS OF 
:; STARTING ADDRESS OF 
: STARTING ADDRESS OF 


WII O 


SEQ 0117 


———————————— 


otw Vito 


WorOoe WVUM aT 


ee ee 


25744 015434 


025736 013532 
025740 015754 
Beales 014446 
025746 016702 


025732 01 


025750 020072 


- - = —- _ + a A 


C id 
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~SBTTL ERROR HANDLER ROUTINE 


UCIT ISIS i itis iiiiiritiiterrtiitirtitiitiiiiit 
SSTHIS ROUTINE wth INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
>*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO ERRTYP ON ERROR 
THE Sw TCH ae on that BY THIS ROUTINE ARE: 


T ON 
+ eS] 3=1 INHIBIT ERROR TYPEOUTS 
> eSW10=1 BELL ON ERROR 
:#SWO9=1 LOOP ON ERROR 
7*CAL 
:* ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
025752 105037 026344 SERROR: CLRB _—sCIBSAVE ::CLEAR THE ITEM BYTE SAVE LOCATION 
625756 104410 CKSWR >: TEST FOR CHANGE IN SOF T-SWR 
025760 105237 001117 7$: INCB ~—s- SERF LG i7SET THE ERROR FLAG 
025764 007775 BEQ 7$ *DON'’T LET THE FLAG GO TO ZERO 
025766 013777 001116 153162 MOV $TSTNM,@DISPLAY : :DISPLAY TEST NUMBER AND ERROR FLAG 
625774 032777 002000 153152 BIT #81710 .aSwR $3 ON ERROR? 
026002 001402 BEQ 1$ ::NO = SKIP 
02 104401 001212 TYPE ,SBELL :7RING BELL 
026010 005237 001126 1$: INC SERTTL :COUNT THE NUMBER OF ERRORS 
026014 011637 001132 MOV (SP) , SERRPC * GET ADDRESS OF ERROR INSTRUCTION 
026920 162737 001132 SUB #2, SERRPC 
026026 117737 153100 0017730 MOVB aSERRPC,SITEMB ;::STRIP AND SAVE THE ERROR ITEM CODE 
026034 032777 001 153112 BIT #BIT09,aSwR ::SEE IF LOOP ON ERROR IS SET 
026042 001 BNE 1004$ H AROUND ROUTINE IF SO 
026044 122737 000177 001130 (MPR ssw#177,.SITEMB 73 SEE IF THIS IS THE POWER FAIL CALL 
026052 001454 BEQ 1004$ “BRANCH AROUND ROUTINE IF IT IS 
026054 105737 026344 TSTB _—sIBSAVE 3 SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
026060 00104 BNE 1003$_ . H IF SO 
026062 022737 177777 026342 CMP #~1, CPSAVE 73 SEE IF CPSAVE HAS CPU ERR-REG TIMEOUT INDICATION 
026070 001445 BEO 1004$ H IF SO 
026072 013746 000004 MOV ERRVEC,-(SP) : 3 SAVE CONTENTS CF ERROR VECTOR 
025076 012737 026114 MOV @1000$,ERRVEC ::SETUP ‘TRAP’ RETURN ADDRESS - 
026104 013737 177766 026342 MOV 177766. CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
€. & 
026114 012737 177777 0263462 10008: MOV #-1, CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
026122 012716 026130 MOV 1001S. (SP) >: SETUP RETURN ADDRESS 
626130 012637 000004 1001$: MOV (SP)+,ERRVEC § ;;RESTORE CONTENTS OF ERROR VECTOR 
26134 022737 177777 026342 1002$: CMP #-1, CPSAVE :7SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
026142 001420 BEO 1004 HIF S 
026144 032737 000001 026342 BIT #81700, CPSAVE 73 SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
026152 00141; BEQ 1004$ H IF OK 
026154 042737 0000G1 177766 BIC #81100, 177766 73 CLEAR THE BIT FOUND SET 
026162 113737 001130 026344 MOVB = SITEMB.IBSAVE —; ;MAKE_IBSAVE NON-ZERO FOR DUAL ERROR CALL 
026170 112737 000177 001130 MOVB 177.$1T ::SET SITEMB TO SPECIAL POWER FAIL POINTER 
026176 02 BR 1004$ ::BRANCH OVER IBSAVE CLEARING 
926200 105037 026344 10038: CLRB  —=—«IBSAVE :: CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
i : 
026204 032777 020000 152742 BIT #81113, aSwR ::SKIP TYPEOUT IF SET 
026212 001004 RNE ::SKIP TYPEQUTS 
026214 004737 026346 ISR PC ERRTYP -:GO TO USER ERROR ROUTINE 


ee eee —— a ee ee Lee ES ETS SS 
_ _ _ ES 


— CZRMQBO RMO5S/3/2 DSKLS TST 2 
| ERROR HANDLER ROUTINE 


eee 
Oe eee ee 


026220 


104401 
122737 


301402 
013716 


022737 
C01001 
090000 


105737 
001210 
000002 


000000 
VO0000 


001217 
000001 


007130 
031310 


026344 
152670 


001006 


001124 
061210 


001210 
021530 


026344 
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0012462 
026246 


152654 


000042 


21$: 
c2$: 
e$: 
3$: 


4$: 


5$: 


6$: 


CPSAVE: 
IBSAYVE: 


TYPE 


»SCRLF 
MAPTENV, SENV 


SITEMS he 
O° SAT 


C 

22$ 
IBSAVE 
3$ 
aSwR 
3$ 


#81T09,aSWR 
4$ 


SLPERR, (SP) 
SESCAPE 


SESCAPE , (SP) 
#SENDAD ,a442 
6$ 


IBSAVE 


7$ 
0 
0 


: RUNNING IN APT MODE 


E 
‘ EREPORT FATAL ERROR TO APT 


T ERROR LOOP 
see IF IBSAVE 1S LOADED 
CH IF NOT = NO HALT ON PWR MON BIT ERROR 


; ¢HA ON OR! 


+ 9% eee SWITCH SET? 
;sFUDGE RETURN FOR LOOPING 
: 3 CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 
FUDGE RETURN ADDRESS FOR ESCAPE 


:sACT=11 AUTO-ACCEPT? 
: ;BRANCH IF NO 


3sSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
;-BRANCH BACK TO CALL ORIGINAL ERROR 


::LOCATION TO SAVE CPU ERROR REG CONTENTS 
>:LOCATION TO SAVE ITEM BYTE 


“Be 


SEQ 0120 


47 026512 


026516 
026520 
026521 
48 026522 
49 926526 


104414 
032777 
001402 
000137 


104401 
104401 
013746 


104403 
003 


012737 
022700 
001406 


012737 
022700 
004 


013746 
194403 
003 


005037 
113737 


CZ7RMQBO RMOS/3/2 DSKLS TST 2 
FRROR TYPEQUT ROUTINE 


020000 
027206 


0C1217 
027222 
001234 


001276 
000026 
177740 


032211 
000024 


032204 
000025 


032216 
000027 
027257 


027212 
001226 
027227 
027212 


027214 
001130 
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152576 


026472 


> 


026472 


026472 


027212 


027214 


~SBITL ERROR TYPEQUT ROUTINE 


:*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
+ REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


i. .UNIT NUMBER, DRIVE TYPE, 
; sPROGRAM COUNTER ARE PRINTED ON’ 


TEST NUMBER, ERROR NUMBER AND 
THE FIRST LIN 


~ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 


: ONE OR MORE SUCCEEDING LINES; 


RED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 


PA] 
S AFTER THE ERROR MESSAGE. 
ERRTYP: SAVREG 
BIT 


+ INHIBIT TYPEOQUTS?? 
“YES! ! 
TEST NUMBER, ERROR NUMBER, AND 


s TYPE “DRVA*’ 
7;SAVE SUNIT FOR TYPEOUT 
+3 TYPE DRIVE NUMBER 

:G0 Mcgee tis ASCII 
:iTYPE 3 DIGIT(S) 
:;SUPPRESS LEADING ZEROS 


TYPE “DRIVE TYPE* RMOS, RMO3S OR RMO2 FOR UNIT UNDER TEST 
MOV $BASE ,RO :GET 


#5w13,aSWR 
BEQ 1$ 
JMP 27$ 
:TYPE UNIT NUMBER, DRIVE TYPE, 
= PROGRAM COUNTER 
Tee No 
MOV SUNIT. (SP) 
TYPOS 
BYTE 3 
BYTE 0 
MOV Ortho). RO 
BIC #177740 RO 
MOV #SRMO3, 58 
CMP #24,R0 
BEQ 2$ 
MOV #SRMO2, 3% 
CMP #25,R0 
BEO 2$ 
MOV #SRMCS , 3$ 
CMP #27,RO 
BNE 4$ 
2$: TYPE LERTYOS 
TYPE 
3$: -WORD O 


RM BASE ADDRESS 
;GET DRIVE TYPE REGISTER 
:SAVE DRIVE TYPE BITS AND 
7GET ASCII DRIVE TYPE 
i tal AN RMOS ? 


SAVE ASCII DRIVE TYPE 
; DEVICE AN RMO2 ? 
:SAVE ASCII DRIVE TYPE 
: DEV VICE AN RMO5 ? 

* TYPE ee sal ee 


: TYPE DRIVE TYPE 
:DRIVE TYPE MESSAGE IS STORED HERE 


; TYPE TEST eines’! ERROR NUMBER AND PROGRAM COUNTER 
4$: CLR TSTNMB 


MOV pital TSTNMB 
TYPE ,ERTYOI 
MOV TSTNMB,=-(SP) 


o 3 
-BYTE 0Q 
ERRNMB 

$]TEMB,ERRNMB 


;LOAD TEST NUMBER FOR 


s TYPE ‘‘TSTA’' 

72: SAVE TSTNMB FOR TYPEOQUT 

3; TYPE TEST NUMBER 

3:GO TYPE=-OCTAL ASCII 

s TYPE 3 DIGIT(S) 

;;SUPPRESS LEADING ZEROS 

;LOAD ERROR NUMBER FOR 
PEOUT 


SEQ 0121 


> rete — ee een ee aoe 


Le 
_ ~- 


50 026534 
31 026536 
32 026542 


026546 
026550 


026551 
53 056882 
54 026556 


98 026750 


013746 
104403 
003 
000 
104401 
013746 
104403 
006 


| CZRMQBO RMOS/3/2 DSKLS TST 2 
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C27237 
027214 


027246 
001132 


027214 


027264 


001532 


027024 
027216 
000015 
027221 
000012 
000011 
027221 
000007 


027221 
000040 
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BEQ S$ sSKIP IF ay ERROR CALLED 
TYPE LERTYO? i; TYPE ‘‘ERR 
MOV ERRNMB ,= (SP) 


: 7 SAVE ERRNMB FOR TYPEOUT 

;; TYPE ERROR NUMBER 

:2G0 partite ASCII 

se TYPE 3 DIGIT(S) 

+g SUPPRESS LEADING ZEROS 
TYPE *PC=" 


BYTE 3 


S$: TYPE ERTYO3 
MOV $SERRPC,-(SP) *:SAVE $SERRPC FOR TYPEOUT 
n ii TYPE PROGRAM COUNTER 
TYPOS :GO_TYPE=-OCTAL ASCII 
\BYTE 6 “TYPE 6 DIGIT(S) 
BYTE 1 :: TYPE LEADING ZEROS 
; GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
é$: ERRNMB :WAS AN ERROR CALLED? 
BNE 7$ “BR IF YES 
IMP 27$ =NO=-EXIT 
7$: TYPE SSCRLF :YES=TYPE CRLF 
CLRB = BOTFLG “CLEAR BOT FLA 


; OF 
>SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 


BNE ; CH IF NO 
“4g Serene :MOVE POWER FAIL ERROR CALL TABLE TO RO 
8$: ASL RO ZFOUR ENTRIES IN ERROR 
ASL RO ; TABLE 
ASL RO 
ADD ASERRTB-8. RO 
9$: MOV (RO) .R1 zRl ee TO ERROR MESSAGE 
BEO 19$ ; BRANCH IF NO ERROR MESSAGE 
; TYPE THE ERROR MESSAGE 
10$: MOV (R1)+,R2 :R2= =ADDRESS OF MESSAGE STRING 
BEG 19$ ;BRANCH IF END OF MESSAGE 
MOV R2,18$ ;LOAD ADDRESS OF STRING 
CLR BOTADR ;CLEAR BOT ADDRESS 
11$: MOVB (R2)+,R3 ; END OF STRING?? 
BEG $ svési! 


; CARRIAGE RETURN?? 
NO! ! 


:YES=CLEAR CHAR COUNT 
:GET y rH CHARACTER 
12$: CMPR FEED?? 


LINE 
BEO 11$ i VES<GET NEXT CHARACTER 
cm ; HORIZONTAL TAB?? 
13$: INCB —s CHRCNT a ee CHARACTER COUNT 
BITB  #7.CHRCNT 


BNE 13$ 
BR 15$ 
148: INCB CHRCNT : INCREMENT CHARACTER COUNT 
CMP : SPACE ?? 
BNE 155° ¥ 


G 10 
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2 DS 
FRROR TYPEQUT ROUTINE SEQ 0124 
026752 010237 027216 MOV R2,BOTADR ;SAVE ADDRESS OF SPACE 
100 026756 122737 (©€00100 027221 15$: (MPR #64, ,CHRCNT ;END OF LINE?? 
101 026764 107340 BHIS 17 ;NO!! 
102 026766 013704 027216 MOV BOTADR,R4G ;GET ADDRESS OF LAST SPACE 
103 026772 001007 BNE 16$ “BR ANCH ¢ SPACE DETECTED 
104 026774 106401 001217 TYPE »SCRLF TYPE CRL 
105 027000 105037 027221 CLRB CHRCNT “CLEAR CHARACTER COUNT 
106 027004 013702 027024 MOV 18$,R2 :SET UP R2 FOR TESTING 
707 027010 00072 3h 11$ 
108 027012 105044 16$: CLRB =(%4) ;REPLACE SPACE 
109 027014 112737 i?777? 927220 MOVS #-1 ,BOTFLG + SET BOT FLAG 
110 027022 104401 17$: TYPE ; TYPE ERROR MESSAGE STRING 
111 027024 000000 18$: WORD ; STRING ADDRESS GOES HERE 
112 027026 105737 027220 TSTA BOTFLG WAS _ STRING TRUNCATED?? 
113 027032 001707 BEQ 10$ NO! ! 
114 027034 104401 091217 TYPE »SCRLF *YES=TYPE CRLF 
175 027040 105037 627220 CLRA BOTFLG “CLEAR BOT FLAG 
716 027044 105037 027221 CLRB CHRCNT =CLEAR CHARACTER COUNT 
117 027050 013702 027216 MOV BOTADR,R2 ; SETUP R2 FOR TESTING 
178 C27054 010237 027024 MOV R2,18$ ;SETUP 18% FOR TYPING 
119 027060 112742 000040 VB #* ,=-(R2) sRESTORE SPACE 
120 027064 105722 TSTB R2)+¢ sRESTORE R2 
3 027066 000677 BR 11§ ; TYPE REST OF STRING 
123 BS ge ERROR HEADER AND ERROR DATA 
124 027070 016001 000002 19$: MOV 2(RO) ,R1 3R1 POINTS TO ERROR HEADER TABLE 
125 027074 001444 BEG 27$ $ CH IF NO HEADER 
126 027076 104401 001217 TYPE SCRLF : (ASSUME NO DATA) 
127 027102 016002 000004 MOV 4(ROQ),R2 zR2 POINTS TO DATA ADDRESS TABLE 
128 027106 016003 000006 MOV 6(RO) RS *R3 POINTS TO FORMAT TABLE 
129 027112 012137 027122 20$: MOV (R1)*, 21% *PUT HEADER ADDRESS FOR TYPE 
430 027116 001433 BEG 273% * BRANCH IF END OF HEADERS 
131 7; (ASSUME END OF DATA) 
132 027120 104401 TYPE 
133 027122 000000 cif: . WORD 0 ;HEADER ADDRESS GOES HERE 
134 027124 194407 0012177 TYPE ~SCRLF 
135 027130 005702 TST me :DATA WITH HEADER?? 
136 027132 001767 BEG 20S sNO!! 
137 027134 012204 MOY (R2)+,RG :R4 POINTS TO DATA ADDRESS 
138 027136 012305 i MOV (R3)+,R5 *RS Bg od TO FORMAT 
139 027140 105725 22%: TSTR (R5)+ ;WHAT KIND OF DATA?? 
140 C27142 100407 SM] 24S :BINARY 
141 027144 001403 BEQ 23$ SOC TAL 
142 027146 013446 MOV @(R4)+,-(SP) sDEC IMAL 
143 027150 104405 TYPDS 
144 027152 000405 25$ 
145 027154 013446 23%: MOV @(R4)+,=-(SP) 
146 027156 104402 TYPOC 
147 027160 000402 ; BR 25% 
148 027162 0173446 243: MOV a(R4)+,-(SP) 
149 027164 104406 TYPBN 
150 027166 605714 258%: TST (R4) :MORE DATA?? 
151 027170 0601403 BEO 26$ NO! ! 
152 027172 106401 027254 TYPE FRTYOS ES=1yPE 2 SPACES 
153 027176 000760 BR 22$ ;AND_ CONTINUE 
154 027200 104401 001217 26%: TYPE SCRiF ; TYPE ONE BLANK LINE 


155 027204 000742 BR 20$ :BEFORE NEXT HEADER 


ee 


-ZRMQBO RMO5/3/2 DSKLS TST 2 
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126 027206 


15? 
158 
159 


027210 
027212 


= 027221 


027222 


027410 


104475 
000207 


900000 
000000 
000000 


027274 
027300 
120 


027366 
103 


027402 
026342 
027410 

C00 


027362 
0000C0 
117 
000000 
120 
000000 


000 


MACRO V¥04.00 


027400 
127 


125 


273: 


TSTNMB: 
ERRNMB: 
BOTADR: .' 
BOTFLG: . 
CHRCNT: 


ERTYOOQ: 


PFECHT: 


PFECH2: . 


4~4PR=-81 


RESREG 
RTS 


H 10 
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0 
0 
0 
6 


aprvaa 

a, TEST&a 
a, ERR#A 
a, PC=a 

a a 

a- a 


SEQ 0124 


; TEST NUMBER 
ZERROR NUMBER 
iBE GINNING OF TEXT ADDRESS 


BOT FLAG 
‘CHARACTER COUNT 


PFECHT PFECH2,PFECHS,PFECHS ; WORDS DEFINING TABLES BELOW 
?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


.*4, 
eASCIZ 
EVEN 
4,0 
eASCIZ 
EVEN 


PFECHS: .+ 


PFECHG: 


. WORD 
“BYTE 


?CPUERREG? 


CPSAVE ,0 
0,0 


— CZRMQBO RMO5/3/2 DSKLS TST 2 


; 


927412 
027414 
027416 
027420 


C27422 


0274706 


027472 


027554 
027556 


TTY INPUT ROUTINE 


000000 
000000 
000000 


02742) 


005037 


117746 
042716 
021627 
001002 
005726 
000002 


021627 


022737 
001004 
104401 


027412 
027420 


151464 
177600 
000021 


000005 


030620 
027422 


030662 
000007 
009176 


000001 
001212 
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027414 
027416 
000060 
0000€E2 


151470 


001754 


027412 


0 
SEQ 0125 


~SBITL TTY INPUT ROUTINE 

wee eRe RRR RR RRR RRR RRR RRR RRR RRR RR ERR EEE ERE ERPS REP RE RE RRO RSASASSOS SE | 
NABL 

$TKCNT: .WORD 0 ;NUMBER OF Th ge IN QUEUE 

STKQIN: .WORD Q «INPUT POINTER 

$TKQOUT: .WORD 0 ;;QUTPUT POINTER 

$TKQSRT: .BLKB 1 :iTTY KEYBOARD QUEUE 

STKQEND=. + 

EVEN 


s*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


= *CALL: 
JSR PC, STKINT 


STKCNT sCLEAR COUNT OF ITEMS IN QUEUE 
MOV ASTKQSRT ,STKQIN : IMOVE THE STARTING ADDRESS OF THE 
MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRV ,AATKVEC : INITIALIZE THE KEYBOARD VECTOR 
MOV #200, @A4TKVEC+2 ;;"BR'' LEVEL 4 


TST a$TKs :;CLEAR DONE FLAG 
+ anata ;7ENABLE TTY KEYBOARD INTERRUPT 


;;RETURN TO CALLER 


:*TK SERVICE ROUTINE 
"THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*1T IN THE QUEUE. 

isIF THE CHARACTER IS A ‘'CONTROL~C'' (*C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL-C’’ RESTART ADDRESS (SHUT) 


tataas MOVB  a$TKB,-(SP) ::PICKUP THE CHARACTER 
BIC #°C177. (SP) :7STRIP THE JUNK 
CMP (SP), ,4SXKON IT A RANDOM XON? 


BNE > = BRANCH IF NO 
TST (SP)+ 3zCLEAN RANDOM XON OFF STACK 
ran RT] 7 sRETURN 
CMP (SP) #3 e315 IT A CONTROL C? 
BNE 1$ CH IF NO 
TYPE ,SCNTLC =: TYPE A CONTROL-C (*C) 
JSR PC ,STKINT :z INIT THE KEYBOARD 
TST (SP) + 3; CLEAN UP STA 
JMP SHUT SS aie C RESTART 
1$ CMP (SP) ,#7 3:1S IT A CONTROL G? 
BNE 2$ : ;BRANCH IF NO 
CMP H#SWREG, SWR 71S SOFT-SWR SELECTED? 
BEQ 6$% ::GO TO SWR CHANGE 


CMP 41, $TKCNT e215 THE QUEUE FULL? 
BNE 3$ ;BRANCH IF NO 
, SBELL :;RING THE TTY BELL 


mes 


ES 


CZRMQBO RMOS/3/2 DSKLS TST 2 
_ TTY INPUT ROUTINE 


aT 
[ he ia ee ee 


027572 


027750 
027754 


027796 


005726 
000451 


022737 


005077 


104402 


000023 
151350 
151342 
151536 
177600 
000021 
000100 


027412 
000150 


000175 
000040 
177516 
027414 
027614 


027420 


006176 
151222 


151216 
177600 
000007 


001150 


027422 
151160 
000001 


030632 
030637 
000176 
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151514 


027421 
027414 


001754 


000001 


001151 


3$: 


31$: 


3e$: 


4$: 


S$: 


RT] 


w= 
_ 


(SP)+ 

S$ 

(SP) #23 

328 

asTKs 

(SP) + 

asTKS 

31$ 

a$TKB,-(SP) 

#°0177, (SP) 
(SP)+, #2) 
31$ 

#100,a$TKS 

$TKCNT 

(SP) #140 
(SP) ,a175 
4$ 


#40,(SP) 
(SP5 +. -@$TKQIN 


QIN 
oe -#STKQEND 
#STKQSRT ,STKGIN 


-1 


° 
se 


N QUEUE 


CH | 
‘ET TTY KEYBOARD INTERRUPTS 


;:COUNT THIS CHARACTER 
7231S IT UPPER CASE? 
3 CH IF YES 
:s1S IT A SPECIAL CHAR? 
BRANCH IF YES 
MAKE IT UPPER CASE 
PUT IT IN 


; UPDATE THE POINTER 
£360 OFF THE END? 


; BRANCH IF NO 
z RESET THE POINTER 


LUA AAA RRERE AERA RETA R ARERR EER RERREERERERRER ERE E EERE EES 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, 
s*SERVICE THE TEST FOR CHANGE 


IN 
s*CALL WHEN OPERATING IN TTY ice: MODE. 
#SWREG, SWR S THE , SOF T-SuR SELECTED 


$CKSWR: 


CMP 


asTKs 
15$ 
a$TKB,-(SP) 
#*C177. (SP) 
SP) #7 


AND WILL 
SOFTWARE SWITCH REGISTER TRAP 


ee¥ 
s3MAKE IT 7=BIT ASCII 
‘i? IT A CONTROL-G? 


>SEXIT IF 


71S A CHAR te: 


IF NOT, EX] 


sas Eatt PUT IT IN THE TTY QUEUE 


33 PERERA ERAEARERARAREREARERETEAREREEARKEKEARARAAEARAREEAEEKEKRAEERREREDR 


>*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 


s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, 
AND THE _SOF TWARE SWITCH REGISTER BEING SELECTED. 
WE a IN AUTO-MODE ? 


6$: 


T 
$GTSwWR: 


;*CONTROL-G BEING TYPED, 
CMPB $AUTOB, #1 


(SP) + 
PC ,STKINT 
a$TKS 


#1, $INTAG 

, SCNTLG 

, SMSWR 
SWREG, (SP) 


joy THE CONTROL=G (“*G) 
YPE CURRENT CONTENTS 
SAVE SWREG FOR TYPEOUT 


; ;ARE 

; :BRANCH IF 
;CLEAR CONTROL-G OFF STACK 

* TFLUSH THE TTY INPUT QUEUE 

; DISABLE TTY KEYBOARD INTERRUPTS 
:;SET INTERRUPT MODE INDICATOR 


AS A RESULT OF A 


::GO TYPE=-OCTAL ASCIICALL DIGITS) 


SEQ 0126 


Me 


LFF SY cat-atnree: 
LLCS kT teeta 
a ee 


_ CZRMQBO ge DSKLS 
| TTY INPUT ROUTINE 


104401 
6 


117746 
042716 


021627 


TST 2 


030650 
1§1120 
151114 
177600 
000003 
030620 
000006 
001151 
000100 
030662 
000025 
030625 
000006 


000015 
000004 
000002 


000006 
001217 
001151 


000100 
025100 
000060 


000067 


000060 
000002 


000002 
177776 
001216 
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000001 
151052 


151000 


000001 
150756 


19$: 
7$: 


9$: 


20$: 


17$: 


18$: 
. DSABL 


B 
TYPE 
BR 
LSB 


» SMNEW 
-(SP) 
= (SP) 
a$TKS 
7$ 


a$TkKB,=-(SP) 
#*C177, (SP) 
(Si?) #3 

9$ 

-SCNTLC 
#6,SP 
SINTAG, 41 
#100, a$TKS 
SHUT 


(SP) ,#25 
10$ 

PS sg ha 
19$ 

(SP) #15 
16$ 

4(SP) 

11$ 

2(SP) ,aSwR 
#6, SP 
“SCRLF 
ale 
#100 ,aSTKS 


PC .STYPEC 
(SP) ,#60 


; 
Fal 
#60, (SP)+ 
2(SP) 


2(SP) 
=-2(SP), (SP) 
7$ 


SOUES 
50$ 


;i;PROMPT FOR NEW SwWR 
; OUNTER 


;CHAR THERE? 
;1F NOT TRY AGAIN 


;sPICK UP CHAR 
;sMAKE IT 7-BIT ASCII 


s318 17 i CONTROL=C? 
SiYES, ECHO CONTROL=-C (°C) 
¥. AN UP STACK 
;REENABLE Ty KEYBOARD INTERRUPTS? 
: SBRANCH TTY KEYBOARD INTERRUPTS 
>: CONTROL=C RESTART 
si1S IT A CONTROL -U? 
CH IF NOT 
T3YES. ECHO CONTROL-U (*U) 
GNORE PREVIOUS INPUT 
*=LET'S TRY IT AGAIN 
e315 IT A <CR>? 
CH IF NO 
ZIYES. Is IT tte FIRST CHAR? 


F> 
cae KBD INTERRUPTS? 
7 RE-ENABLE TTY KBD INTERRUPTS 


: OTRIPS IF rs 


+3 TYPE ?<CR><LF> 


CAAA AAA EAA REA EAE EARTH AERA RARARERERARAAREREERER ERAS 


SEQ 0127 


oe 


L 10 
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TTY INPUT ROUT] SEQ 0128 


trong ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
| -* 
| th AR A ay A FROM THE QUEUE 


ie RDCHR 
;* RETURN HERE i; CHARACTER IS ON THE STACK 
:* iiWITH PARITY BIT STRIPPED OFF 


| 030264 011646 SRDCHR: MOV (SP) ,=(SP) tie & DOWN THE PC AND 
030266 016666 000004 000002 MOV 4(SP),2(SP) ss PS 
030274 005066 000004 CLR 4(5P) 13661 READY FOR A CHARACTER 
030300 005046 CLR -(SP) ;PUT NEW PS ON STACK 

| 030302 012746 030310 MOV #64$,-(SP) ::PUT NEW PC ON STACK 
030306 000002 RT] ;POP NEW PC AND PS 
030310 64$: 
030310 005737 027412 1$: TST STKCNT ;;WAIT ON A CHARACTER 
030314 001775 BEQ 1$ 
030316 005337 027412 DEC STKCNT : sDECREMENT THE COUNTER 
030322 117766 177070 000004 MOVB @$STKQOUT,4(SP) ;;GET ONE CHARACTER 
030330 005237 027416 iNC $TKQOUT ;;UPDATE THE POINTER 
630334 023727 027416 027421 CMP STKQOUT .#STKQEND 3 gDID IT GO OFF OF THE END? 
030342 001003 BNE $ CH IF NO 
030344 012737 027420 027416 MOV #STKOSRT,$TKQOUT’ "3 gRESET THE POINTER 
030352 000002 2$: RT] TURN 


 Cenhsaabdeghesadbanneneehddastenate Tessie bhadesbewssoscececees 


*THIS ere WILL INPUT A STRING FROM THE TTY 


>*CALL 

2* RDLIN 32 INPUT A STRING FROM THE TTY 

:* RETURN HERE : sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.° :; TERMINATOR WILL BE A BYTE OF ALL O'S 


030354 010346 SRDLIN: MOV R3, athe 7: SAVE R3 
030356 005046 CLR *:CLEAR THE RUBOUT KEY 
036360 012703 030610 1$: MOV #STT im R3 > :GET ADDRESS 
030364 022703 030620 2$: CMP WSITYINGS. .R3 > :BUFFER FULL? 
030370 101456 BLO 4$ ::BR IF YES 
030372 104411 RDCHR 3;G0 READ ONE CHARACTER FROM THE TTY 
030374 112613 MOVB  (SP)+,(R3) >:GET CHARACTER 
030376 122713 000177 10$: CMPB #177. (R3) “SIS ITA T 
030402 001022 BNE 5$ >:BR IF NO 
030404 005716 TST (SP) >:1S THIS THE FIRST RUBOUT? 
030406 001007 BNE 6$ >:BR IF 
030410 112737 000134 030606 MOVB #'\.9$ >: TYPE A BACK SLASH 
030416 104401 030606 TYPE .9$ 
030422 012716 177777 MOV #-1, (SP) ;SET THE RUBOUT KEY 
030426 005303 6$: DEC R3 “BACKUP BY ONE 
030430 020327 030610 CMP R3_WSTTYIN : 3 STACK EMPTY? 
030434 BLO “BR IF YES 
030436 111337 030606 MOVB  (R3),9$ i: SETUP TO TYPEOUT THE DELETED CHAR. 
030442 104401 030606 TYPE 9 ::GO TYPE 
030446 000746 BR a$ *:GO READ ANOTHER CHAR. 

| 030450 005716 5$: TST (SP) : SRUBOUT KEY SET? 

| 030452 001406 BEQ 7$ IF NO 
030454 112737 000134 030606 MOVB = #'\, 9$ =: TYPE A BACK SLASH 
030462 104401 030606 TYPE ,9$ 
030466 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
030470 122713 000025 7$: (MPR #25, (R3) =: 1§ CHARACTER A CTRL U? 


030474 001003 BNE 8$ ;;BR IF NO 


TT te ee ec 


oat gh is DSKLS 


INPUT 


TST 2 


030625 
000022 
001217 
030610 
001216 
030606 
030606 
000015 
177777 
001220 


000004 
039610 


021332 
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000002 
000004 


8$: 


4$: 
3$: 


9$: 


STTYIN: .BLKB 


TST 


mz 


SCNTLU 
#22, (R3) 
3$ 
(R3) 
/$CRLF 

STIVIN 

$QUES 
i$ 

(R3) ,9$ 
#15, (R3)+ 


-1(R3) 


ASTTYIN, 4(SP) 
0 
0 
8. 
/*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 
/ NE 


SEO 0129 


:zTYPE A CONTROL ‘U"' 
a START OVER 

31S CHARACTER A ‘"*R'’? 
3s CH IF NO 
+sCLEAR THE CHARACTER 
se TYPE A “'CR'’ & LF’ 
:; TYPE THE INPUT STRING 
ii eet ANOTHER CHACTER 
;;CLEAR THE BUFFER AND |.OOP 
3:ECHO THE CHARACTER 


. CHECK FOR rhe 


LOOP IF NOT RETURN 
1] CLEAR weg! (THE 15) 
hy A LINE FEE 
*CL AN RUBOUT KEY FROM THE STACK 
CREST ORE R3 
+ sADJUST THE STACK AND PUT ADDRESS OF THE 
oé FIRST ASCII CHARACTER ON IT 
7 RETURN 
;;STORAGE FOR ASCII CHAR. TO TYPE 
72 TERMINAT 


a reer Mees FOR TTY INPUT 


:ANY MONITOR PRESENT ? 
;BR IF YES 


:GO TO START 
;FUDGE NO DRIVES IN MAP 
sRETURN TO SEOP 


Ee ee = . 
j 


4 
' 


ee a oo = 


011646 
0 


CZ7RMGBO RMO5/3/2 DSKLS TST 2 
READ AN OCTAL NUMBER FROM THE TTY 


000004 


177770 


000012 
031004 


N 1 
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0 
é 


~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


SARA AAR AAR RARER EERE 


SRTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:*CHANGE IT TO BINARY. 


**CALL: 
:* RDOCT 
of. RETURN HERE 
*® 
$SRDOCT: MOV (SP) ,=(SP) 
000002 MOV 4(SP) ,2(SP) 

MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

1$: RDLIN 
MOV (SP)+,R0 
CLR R1 
CLR R2 

2$: MOVB (RO) +,=(SP) 
BEG 3$ 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC #*°C7, (SP) 
ADD (SP)+,R1 
BR 2$ 

3$: TST (SP) + 
MOV R1,12(SP) 
MOV R2, SHIOCT 
MOV (SP) +,R2 
MOV (SP) +,R1 
MOV (SP)+,RO 
RT] 

$HIOCT: .WORD 0 


;ZREAD AN OCTAL NUMBER 
3;LOW ORDER BITS ARE ON TOP OF THE STACK 
;7HIGH ORDER BITS ARE IN $HIOCT 


aa fg SPACE FOR THE 
T NUMBER 


; sPUSH RO ON STACK 
hi R1 ON STACK 
PU SH R2 ON STACK 
7 ZREAD AN ASCIZ LINE 
37GET ADDRESS OF 1ST CHARACTER 
7zCLEAR DATA WORD 


7ZPICKUP THIS CHARACTER 
eY ZERO GET OUT 


33%4 
738 


STRIP THE ASCII JUNK 
:zADD IN THIS DIGIT 


>: CLEAN TERMINATOR FROM STACK 
:SAVE THE RESULT 


;sPOP STACK INTO R2 
:zPOP STACK INTO R1 
‘ume INTO RO 


;:HIGH ORDER BITS GO HERE 


SEQ 0130 


Le EE 


_ TRAP DECODER rei eS SEQ 0131 
| .SBTTL TRAP DECODER 


| ISPS TPIT PIPETTE rire rir TTT tir T ir riririririiirririririiie 

SSTHIS ut WILL PICKUP THE LOWER BYTE OF be ""TRAP’’ INSTRUCTION 

| :*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
: *OF a DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


! 031006 016646 000002 $TRAP: MOV 2(SP), es (SP) i ASSUME THE STATUS OF 


| 031012 042716 000020 BIC #29, ( :: THE CALLER=-DO NOT ALLOw 

| 031016 012746 031024 MOV #1$. StSP) :: T=BIT TRAP 

| 031022 000002 RTI ::SET THE NEW STATUS 
031024 010046 1$: MOV RO,-(SP) +: SAVE RO 

| 031026 016600 000002 MOV 2(§P) RO ‘:GET TRAP ADDRESS 

| 031032 005740 TST = (RO) ::BACKUP BY 2 

| 031034 111000 MOVB _— (RO) ,RO 73GET RIGHT BYTE OF TRAP 
031036 006300 ASL - RO > :POSITION FOR INDEXING 
031040 016000 031060 MOV STRPAD(RO),RO 3: INDEX TO TABLE 
031044 000200 RTS RO *:G0 TO ROUTINE 


THIS IS USE TO HANDLE THE ‘'’GETPRI** MACRO 


at. 


031046 011646 STRAP2: MOV (SP) ,~(SP) :sMOVE THE PC DOWN 
031050 016666 000004 000002 MOV 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
031056 000002 RTI 2 sRESTORE THE PSwW 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION. 


; ROUT INE 
031060 031046 STRPAD: .WORD $TRAP2 
031062 024666 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
031964 024464 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
031066 024440 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
031070 024500 | STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
031072 024214 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
031074 024140 STYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
031076 030012 SGTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
031100 027722 SCKSWR ;;CALL=CKSWR eve GPO eo bby TEST FOR CHANGE IN SOF T-SwR 
031102 0350264 SRDCHR ;;CALL=RDCHR TRAP+11(1046411) TTY TYPEIN CHARACTER ROUTINE 
031104 030354 $RDLIN Ae peg peed 2 sect SE) tabs 1s TTY TYPEIN STRING ROUTINE 
031106 030704 SRDOCT ;;CALL=RDOCT TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
051110 026044 SSAVREG ; ::GALL=SAVREG TRAP+14(104414) SAVE RO-RS ROUTINE 
037112 024102 SRESREG ;;CALL=RESREG TRAP+15(104415) RESTORE RO=-R5 ROUTINE 


a — = 


03 
031262 


| | BERD RM05/3/2 om TST 2 


DOWN AND UP ROUTINES 


031254 
000340 


150004 
031260 
031166 


031254 


031260 
147736 


031114 
000340 
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~SBTTL POWER DOWN AND UP ROUTINES 


SRR AAA AERA ARETE 


“POWER DOWN ROUTINE 
000024 $PWRDN: MOV SILLUP,@#PWRVEC ;;SET FOR FAST UP 
000026 MOV #3405 @APWRVEC +2 :°PRIO:7 
MOV RO,=(SP) : PUSH RO ON STACK 
MOV R1,=(SP) :7PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3,-(SP) : PUSH R3 ON STACK 
MOV R4,-(SP) ::PUSH R4 ON STACK 
MOV R5,-(SP) : PUSH R5 ON STACK 
MOV @SWR,- (SP) :;PUSH @SWR ON STACK 
MOV SP, SSAVR6 ;SAVE SP 
000024 MOV #SPWRUP ,aAPWRVEC :;SET UP VECTOR 
BR -~2 7 HANG UP 
SEAR RARER RARER EEE ARARERRAEREEEEAREEEEAEREEREERRKEHKEHE 
POWER UP ROUTINE 
000024 $PWRUP: MOV ASILLUP ,QAPWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6, SP :iGET SP 
CLR SSAVR6 :i:WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 s:WAIT FOR THE INC 
BNE 1$ :: WORD 
MOV (SP) +, aSWR :;POP STACK INTO a@SwR 
MOV (SP)+, 33 STACK INTO R5 
MOV (SP) +,R4 3: STACK INTO R4 
MOV (SP)+,R ::POP STACK INTO R3 
MOV (SP) +,R2 7:POP STACK INTO R2 
MOV (SP)+,R1 :: STACK INTO R1 
MOV (SP)+,RO :2POP STACK INTO RO 
000024 MOV #SPWRDN, aFPWRVEC- :gSET UP THE POWER DOWN VECTOR 
000026 MOV #340, a#PWRVEC+2 ;;PRIO:7 
TYPE RERORi THE POWER FAILURE 
SPWRMG : = WORD $POWER >:POWER FAIL MESSAGE POINTER 
SILLUP: HALT 72 THE POWER UP SEQUENCE WAS STARTED 
BR -~2 32 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: O 7;PUT THE SP HERE 


120 S$POWER: rey <15><12>° POWER’’ 
é 


SEQ Q7 


-ZRMQBO RMOS/3/2 DSKLS 


APT COMMUNICATIONS ROUT 


a 


031272 
0 


ST 2 
NE 


000001 
000001 


000001 
031534 
000001 
000100 


000002 
001222 
001236 


001236 
001240 
000004 
090002 
177776 
024666 


031536 


031534 
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-SBTTL APT COMMUNICATIONS ROUTINE 


2 3 hi ett eee PPR RRR RRR RRR RRR RRR RRR E REEL EOOCOSOSOSSSLS SY 


031536 $ATY1: MOVB #1,$FFLG ::T0 REPORT FATAL ERROR 
031534 $ATY3: MOVE #) « SHFLG 2:70 TYPE A MESSAGE 


Y 
031536 $ATY4: MOVB #1,SFFLG :73T0 ONLY REPORT FATAL ERROR 
"MOV RO,-(SP) ;sPUSH RO ON STACK 


MOV R1,=(SP) *PUSH Ri ON STACK 
TsTB SMFLG i: SHOULD TYPE A MESSAGE? 
001242 (MPR =—s MAP TENV, SENV ; ]OPERAT ING UNDER APT? 
BNE F NOT: BR 
001243 BITB § #APTSPOOL,$ENVM ; i SHOULD SPOOL MESSAGES? 
BEQ 3$ NOT: BR 
MOV a4 (SP) ,RO + GET MESSAGE ADDR. 
000004 ADD #2,4(SP) ; BUMP RETURN ADDR. 
1$: TST SMSGTYPE ;sSEE IF DONE W/ LAST XMISSION? 
BNE 1$ NOT: WAIT 
MOV RO, $MSGAD ::PUT ADDR IN MAILBOX 
2$: ise (RO) + FIND END OF MESSAGE 


3§ 
SUB SMSGAD , RO :3SUB START OF MESSAGE 
ASR RO cit MESSAGE LNGTH IN WORDS 
MOV RO, SMSGLGT T LENGTH IN MAILBOX 


001222 MOV ws. » SMSGTYPE *:TELL APT TO TAKE MSG. 
031446 3$: MOV a4 (SP) .4$ ::PUT MSG ADDR IN JSR LINKAGE 
000004 ADD 4(S - >BUMP RETURN ADDRESS 
MOV 177776,~(SP) ::PUSH 177776 ON STACK 
JSR LUSTY =:CALL TYPE MACRO 
$i .- WORD 
10$: TSTB. ~—s_ SFFLG ;:SHOULD REPORT FATAL ERROR? 
BEQ 12% :IF NOT: BR 
TST SENV ; RUNNING UNDER APT? 
BEQ 12$ NOT: BR 
11$ TST SMSGTYPE ; 7F INISHED LAST MESSAGE? 
BNE 11$ ::IF NOT: WAIT 
001224 MOV @4(SP),$FATAL ::GET ERROR P 
000004 ADD #2,4(SP) :BUMP RETURN ADDR. 


INC SMSGTYPE 
12$: CLRB SFFLG 
CLRB SLFLG 
SMF LG 


MOV (SP)+,R1 

MOV (SP)+,RO 

RTS PC 
SMFLG: .BYTE QO 


we (8 abt TO TAKE ERROR 


: POP STACK INTO RO 
TURN 
; @MESSG. FLAG 


$LFLG: .BYTE 0O :LOG FLAG 

SFFLG: .BYTE O +: FATAL FLAG 
VEN 

APTSIZE = 200 

APTENY = 001 

APTSPOOL= 100 

APTCSUP = 040 


SEQ 0133 


re ree terete seen 


A A 


E 1 
MQBO etre DSKLS TST 2 MACRO V04.00 4=APR=81 01:29:56 PAGE 3 


CZR 
— CONSOLE MES SEQ 0134 


-SBTTL CONSOLE MESSAGES 


2 
3 031540 075 000 EQUALS: .ASCIZ a=a 
4 031542 101 114 114 ALL: -ASCIZ @ALL@<CRLF > 
5 031547 040 077 040 QUES: .ASCIZ 2? 4 
6 031553 054 040 ocd C ASCIZ a, @ 
? 031556 200 124 131 MSHELP: .ASCIZ <CRLF>@TYPE HELP TEXT (L) N? @ 
8 031607 200 122 115. CNSLO1: .ASCIZ <CRLF>@RMCS1=a 
9 031617 040 114 111 CNSLO2: .ASCIZ @ LIMITS = LO= 160000, HI= 17XXXX@<CRLF> 
10 031661 122 115 126 CNSLO3: .ASCIZ @RMVEC=a 
11 031670 040 114 177 CNSLO4: .ASCIZ @ LIMITS = LO= 0, HI= 1000@<CRLF><LF> 
12 031724 200 124 131 CNSLO?: .ASCII <CRLF>@TYPE ‘'A’' TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a 
+3 032011 200 101 116 ~ASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 
14 032066 e CNSLO8: .ASCII <CRLF> 
15 032067 040 077 1177 CNSLO9: .ASCIZ @ ?ILLEGAL INPUT@<CRLF> 
16 052110 2 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED/ 
17 032137 116 117 116 > .ASCIZ: /NONE/ 
18 032144 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): / 
19 032160 104 122 111 MSGDRV: .ASCIZ /DRIVE/ 
20 632166 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
21 032204 122 115 060 $RMO2: .ASCIZ /RMO2/ 
22 032211 122 115 060 $RMO3: .ASCIZ /RMO03/ 
25 032216 122 115 060 $RMO5: .ASCIZ /RMOS/ 
24 032223 116 117 NOTRM: .ASCIZ NOT AN RMO05/3/2a 
25 032244 040 114 117 LODEV: .ASCIZ / LOAD DEVICE/ 
26 032261 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
27 032276 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
28 032315 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
29 032326 040 117 116 UNTON: .ASCIZ / ONLINE/ 
30 032536 116 900 N: ASCIZ /N/ 
31 032340 131 000 Y: eASCIZ /Y/ 
32 032342 040 BLNKS4: .ASCII / / 
33 032343 0 BLNKS3: .ASCII / / 
34 032344 040 BLNKS2: .ASCII / / 
2 032345 040 000 eo ASCIZ / / 


| CZRMQBO RM9O5/3/2 DSKLS 
_ FUNCTION CODE TABLE 


| 


NOAMAREWN--OODONOWER WI -s 


55 032350 
57 032350 020000 
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~SBTTL FUNCTION CODE TABLE 


;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
:EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA =~ BIT 15_IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 
:BIT 15 IS ZERO, INDICATING gel ATA SHOULD NOT NORMALLY BE SET. 
:NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
>IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE ~ BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF ie COMMAND . 
>THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE’’, ‘WCF’, ‘DPE’’, ‘UPE’’. 


IAE ~- BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE ~ BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
:COMMAND. THE ERRORS — BY THIJS BIT ARE ‘’TRE’’, “DLT’’, "NEM, 
;’MXF'’, "‘LBT'', AND *'AOE** 
; BIT 08 IS NOT USED. 

HCE ~- BIT O7 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
VIF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;HEADER ERRORS INCLUDE "'HCRC’', "HCE'', FER’ - AND ‘BSE"’” 


ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
“IF DATA FIELD ERRORS ARE ENABLED DURING THE eee of THAT 


:COMMAND. THESE ERRORS INCLUDE *™MDPE'*, ‘DCK’’, “ECH 
: BIT 05 IS NOT USED. 
; BIT 04 IS NOT USED. 


BIT 03 IS NOT USED. 
BIT O02 IS NOT USED. 
BIT 01 IS NOT USED. 


; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: sFUNCTION CODE TABLE 
-WORD OP] ; NOP 


SEQ 0135 


CZRMQBO RMOS/3/2 DSKLS TST 2 
_ FUNCTION CODE TABLE 


58 032352 
59 032354 
60 032356 
61 032360 


86 
87 032444 
88 032446 
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OPI -ATA‘ILF. IVC 
ATA! OPI! IVC! IAE 
ATA!OPI! IVC 

OP] 

OPI! IVC 

OPI ATA! IVC 


OPI !ATA! IVC 
OPI 


OP I 

OPI!ATAL IL? !IVC 
OPI !ATA!ILF!IVC 
ATA!OPI! IVC! IAE 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 


OPI !ATA!ILF!IVC 
OPI!ATA!ILF!IVC 

OPI !ATA!ILF ! IVC 

WCE OPI! IVC! IAE!AOE!HCE!ECH 
WCE!OPI! IVC! IAE!AOE!HCE!ECH 
OPI !ATALILF! IVC 

OPI !ATALILF! IVC 

OPI! IVC!WLE! IAE! AOE !HCE 
OPI: IVC! WLE! IAE! AOE 

OPI !ATA! ILF ! IVC 

OPI !ATA!ILF ! IVC 

OPI! IVC! IAE!AQOE!HCE!ECH 
OPI! IVC! IAE!AQE!HCE!ECH 

OPI !ATA!ILF i IVC 

OPI !ATALILF ! IVC 


; ILLEGAL FUNCTION (2) 
i SEEK 
;RECALIBRATE 


sea. be CLEAR 
; RELEASE 


ET 
"RE TURN " CENTERL INE 
;READ IN PRESET 

;PACK ACKNOWLEDGE 

s ILLEGAL FUNCTION (24) 
A th FUNCTION (26) 


; ILLEGAL FUNCTION (32) 


> ILLEGAL ION 
sWRITE CHECK DATA 
;WRITE CHECK HEADER AND DATA 
: ILLEGAL FUNCTION (54) 
; ILLEGAL FUNCTION (56) 
:WRITE DATA 
;WRITE HEADER AND DATA 
: ILLEGAL FUNCTION (64) 
; ILLEGAL FUNCTION (66) 
EAD DATA 


:R 

:READ HEADER AND DATA 
: ILLEGAL FUNCTION (74) 
Z ILLEGAL FUNCTION (76) 


SEQ 0136 


SE 


r-- ir eee 
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ATTENTION (ATA) TABLE SEO 0137 
7 .SBITTL ATTENTION (ATA) TABLE 
2 
3 032450 001 ATNTBL: .BYTE - 

4 032451 002 . 4 ao 

5 932452 004 BYTE 4, 

6 032453 010 BYTE 8. 

7? 032454 020 Sy¥te 6. 
8 032455 040 BYTE 32. 
9 032456 100 BYTE 64, 
70 032457 200 BYTE 128, 
'T EVEN 


SS 2 ee eee ee 40 ee 


A LT <5 + ate 


» 
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, ERROR MESSAGE TABLE SEQ 01458 


a 


1 .SBITL ERROR MESSAGE TABLE 
3 032460 047151 040562 000000 EMT1: .WORD &MS300,EMS1.0 
4 032466 047167 047212 047237 EMT2: WORD EMS301 Ems so. EMS303,EMS1,EMS304 
5 032500 052427 051633 051773 “WORD E&MS511,EMS500.EMS501 .EMS502,EMS503.0 
6 032514 047167 047257 047212 EMT3: :WORD &MS301_EMS306_EMS302 
? 032522 052427 052150 051773 “WORD EMSS 7 1 *EMS505, ENS501 EMS502, 0 
8 032534 047151 047212 047273 EMT4: [WORD £&MS300.EMS302.EMS307. 
9 032544 052427 052020 051773 -WORD £&MS511,EMS502.EMS501. EMSS03, 0 
10 032556 047167 047334 047351 EMTS: :WORD &MS301.EMS310.EMS311 
11 032564 052427 052020 051773 “WORD &MS511.EMS502. EMSSO1., EMS503,EMS504 
12 032576 047415 000000 “WORD £&MS312.0 
13 032602 047167 047257 047351 EMT6: “WORD EMS 301 °EMS306,EMS311 
14 032610 052427 052020 051773 .WORD £&MS511,EMS502.EMS501,EMS503,EMS504,0 
15 032624 047167 047453 047212 EMT7: ‘WORD &MS301_EMS313.EMS302. 
16 032632 052427 051773 052020 “WORD &MS511.EMS501 EMS506 EMS504,EMS503,0 
17 032646 647561 047602 047504 EMT10: [WORD &MS316.EMS317.EMS314 
18 032654 052427 051773 052020 .WORD £MS511,EMS501,EMS502,0 
19 032664 047561 047602 047533 EMT11: .WORD &MS316.EMS317.EMS315 
20 €32672 052427 051773 052020 .WORD &MS511,€MS501.EMS502,0 
21 032702 047561 047622 047504 EMT12:  :WORD &MS316.EMS320.EMS3 
22 032710 052427 051773 052020 .WORD &MS511,€MS501,EMS502,0 
23 032720 047561 047622 047533 EMT13: .WORD £&MS316.EMS320.E 
24 032726 052427 051773 052020 “WORD 511.EMS501 .EMS502,0 
25 032736 047561 047642 047504 EMT14: WORD &MS316.EMS321_EMS31 
26 032744 052427 051773 052020 .WORD &MS511,EMS501,EMS502,0 
27 032754 047561 047642 047533 EMT15: WORD £&MS316.EMS321_EMS3 | 
28 032762 052427 051773 052020 .WORD &MS511,EMS501,EMS502,0 | 
29 032772 047561 047662 047504 EMT16: WORD &MS316.EMS322_E | 
30 03 052427 051773 052020 .WORD &MS511,EMS501,EMS502,0 | 
31 033010 047561 047662 047533 EMT17: WORD &MS316.EMS322.EMS315 | 
32 033016 052427 051773 052020 “ WORD EMS511 zEMS501 -EMS502,0 | 
33 033026 045142 050101 050157 EMT20: {WORD &MS71,EMS335.EMS340,EMS72.EMS377.EMS372 | 
34 033042 052427 052070 000 “WORD  E—MS511 eERsSOs. | 
35 033050 045142 050124 050157 EMT21: WORD &MS71,€MS336,£MS340,EMS72,EMS400.EMS372 | 
3% 03 052427 052070 - WORD c 1, EMS 
37 033072 045277 0504 5347 EMT22: WORD EMS73 EMS 352 EMS74,EMS402,EMS70.EMS406 
38 033106 052427 052070 052115 “WORD MeSTice 503.6 
39 033116 045277 050404 045422 EMT23: “WORD ae Ns35¢ EMS 75 EMS402.EMS77.EMS406 | 
40 033132 052427 052070 052115 “WORD EMSST ice 503, EMS504.0 | 
41 033142 045277 050521 045422 EMT24: “WORD &MS73 gitsee ghee EMS402.EMS77,EMS377 
42 033156 052427 052070 052115 -WORD &MS511.EMS5 5 
43 033166 045277 050191 050157 EMT25: “WORD &MS73.£ ms335 EMS 340.EMS76,EMS411 
44 033200 052427 052070 000 “ WORD EMSs71— EMSS 
45 033206 047167 047257 046541 EMT26: “WORD EMS 301 EMS 306. EMS252,EMS253.EMS327,EMS 754 
46 033222 052427 052070 051773 .WORD £&MS511,€MS503.EMS501 .EMS502 | 
47 033232 047770 047504 000000 “ WORD EMS 350, EMS314.0 : 
48 033240 050143 045277 051376 EMT27: {WORD &MS337. EMS75 EMS410,EMS76,EMS411 | 
49 033252 052427 052070 000000 “ WORD EMe57 17 °0 | 
50 033260 050143 045602 050170 EMT30: WORD £&MS337. EMS100. EMS 341, EMS101 7 
51 033270 052427 052076 052115 “WORD €&MS511.EMS503.EMS504 .0 : 
52 033300 047151 046541 EMT31: “WORD EMS300,EMS252 | 
53 033 052427 051773 052070 “ WORD EMS9 11 *—MS501,EMS503,0 | 
54 033314 045602 051016 EMT32: . WORD &MS100.EMS370— 
55 033320 052427 052115 000000 “WORD £&MS511_EMS504,0 
56 033326 045602 051422 EMT33: .WORD &MS100.EMS412 
57 033332 052427 052115 000000 “WORD £&MS511_EMS504,0 | 


eee ll 


- 


eA hm meee mee ee eee ee ~ . = —— on 
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| ERROR MESSAGE TABLE SEQ 0139 
| 
| 58 033340 045716 051422 EMT34: .WORD EMS 102 .EMS412 
9 033344 052427 652070 000000 “WORD &MS511.EMS503,0 
60 033352 045716 050124 EMT35: . WORD EMS102.EMS336 
61 033356 052427 052070 000000 “WORD £MS511.EMS503,0 
6 045602 050101 050157 EMT36: :WORD &MS100.EMS335.EMS340,EMS102,EMS334 
63 033376 052427 052115 000000 “WORD &MS511.EMS504.0 
64 033404 045602 050101 050157 EMT37: WORD &MS100~.EMS335. EMS340, EMS102,£MS377,EMS 365 
65 033420 051435 046024 051467 -WORD £&MS413,EMS104.EMS415 
66 033426 052427 052115 000000 “WORD EMS911 ,EMS9 é, o 
67 033434 045602 050124 050157 EMT40: -.WORD &MS100.EMS336.EMS340,EMS416,EMS104,EMS415 
68 033450 052427 052115 000000 "WORD -EMS511_EMS 
69 033456 045602 050124 050157 EMT41: _WORD ENS100;ERSS36. EMS340,EMS73,EMS415, EMS402 
70 033472 045716 051212 “WORD £&MS102.EMS400 
71 033476 052427 052115 000000 “WORD &MS511.EMS504,0 
72 033504 045764 051227 047762 EMT42: _WORD EMS 103, EMS4O1 »EMS327,EMS370 
73 033514 052427 052070 000000 .WORD £&MS511 
74 033522 051450 046024 051517 EMT43: .WORD &MS414. EmS104. »EMS417 
75 033530 052427 052115 000000 “WORD EMSS11, EMS 
76 033536 046051 051227 047762 EMT44: {WORD £&MS105.EMS401.EMS327,EMS370 
77 633546 052427 052070 000000 -WORD &MS511.EMS503.0 
78 033554 047151 046574 EMT45: .WORD EMS300,EMS253 
79 033560 052427 051773 052070 -WORD £&MS511.EMS501, EMS503, 0 
80 033570 046112 051227 051517 EMT46: WORD &MS106.EMS401_EMS41 
81 033576 052427 052070 900000 .WORD £&MS511,EMS 
82 033604 051435 046157 051535 EMT47: -WORD &MS413. EMS107. EMS420,EMS417 
83 033614 052427 052115 000000 .WORD €&MS511.EMS 
84 033622 046167 051435 051333 EMTSO: .WORD &MS110.EMS413.EMS405, EMS107 
85 033632 052427 052070 000000 .WORD €&MS511, 
86 033640 050231 046226 051550 EMTS1: _WORD EMS343, EMS111.EMS421 
87 033646 052427 052115 000000 .WORD &MS511,EMS 
88 033654 051450 051506 046157 EMT52: WORD €&MS414. EMSA 16. EMS107,EMS421 
89 033664 052427 052115 000000 -WORD £MS511.EMS504.0 
90 033672 050007 040747 046732 EMTS3: _WORD EMS331 .EMS4 EMS256 
91 033700 052427 051773 000000 “WORD EMS5 11. $501, 
92 033706 046244 051435 051333 EMT54: _WORD $112.EMS413.EMS405, EMS607 
93 033716 052427 052070 000000 WORD EMS 1 EMS 
94 033724 046302 051227 047762 EMTSS: _WORD EMS113. EMS401 .EMS327,EMS376 
95 033734 052427 052070 000000 WORD EMS mes] MS 
96 033742 046341 051227 051517 EMT56: .WORD &MS114.EMS401.EMS417 
97 023750 052427 052070 000000 -WORD €MS511.EMS503.0 
98 033756 046762 050037 EMT57: .WORD &MS257,EMS3<2 
99 033762 052427 052223 051773 .WORD £&MS511,EMS506,EMS501,0 
100 033772 041000 050055 EMT60: .WORD &MS5.EMS333 
101 033776 052427 052254 051773 “WORD £&MS511,EMS507,EMS501.0 
102 034006 051435 046407 051535 EMT61: _WORD Mee 15. EMS 15, EMS420.EMS417 
103 034016 052427 052115 000000 -WORD £&MS511,EMS504, 
104 034024 050322 045602 050170 EMT62: [WORD £&MS346.EMS100.EMS341.EMS101 
105 034034 052427 052115 000000 WORD £MS511,EMS504.0 
106 034042 046302 051033 EMT63: .WORD €MS113,EMS371 
107 034046 052427 052070 000000 “WORD £&MS511.EMS503,0 
108 034054 051435 046424 050420 EMT64:  .WORD £&MS413.EMS116.EMS353 
09 034062 052427 052115 000000 “WORD €MS511,EMS504.0 
0 034070 051565 050420 EMT65: .WORD &MS422.EMS353 
034074 052427 052115 000000 “WORD £MS511.EMS504,0 


034102 041321 050124 050177 EMT66: WORD &MS12,EMS336.EMS342 
034110 052427 051773 000000 “WORD £MS511,E€MS501,0 
034116 047151 041050 EMT67: .WORD £MS300,EMS6 


ee 


> 034122 
0 6 

0 

0 

034154 

0 

0 

0 


00 
34214 


BYRuRUKeE UES 
oO 
f 
8 g 


el ed ed eed ed od dd ed od 


a 
© 
rs 
rx 
© 
nm 


cud end cud end cond end 
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ee 

XD 

& 
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051773 
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-WORD €&MS511,EMS501 


000000 “WORD EMS7.EMS333, 

047762 EMT70: .WORD &MS300,EMS6.EMS327.EMS7 

052115 WORD EMS911 EMS501 - EMS504,0 

050157 EMT71: .WORD &MS6,EMS335,EMS340.EMS10,EMS333,EMS342 
052020 “WORD $511,€MS501,EMS502,0 

050157 EMT72: .WORD EMS6,EMS336 EME 320 EMS10,EMS334,EMS342 
052020 WORD £&MS511,EMS501,EMS502,0 


‘ S -EM 
047237 EMT73: .WORD EMSe11 EmeSOl Emeeos a 


052020 -WORD EMS511,EMS501 502,0 
050177 EMT74: .WORD €&MS343,EMS344,EMS342,0 
EMT75: .WORD £MS300,EMS13 
000000 -WORD EMS511,EMS503,0 
050274 EMT76: .WORD EMS346, EMS1 3 EMS345 
. WORD sagt 1 


000000 -EMS505, 

050274 EMT77: .WORD MS337, EMS 3 EMS345 

000000 . WORD EMS31 1. EMS505,0 

046627 EMT100: .WwORD EMS301,EMS313,EMS254,EMS347,EMS13 
000000 .WORD £—MS511,EMS503.0 

050170 EMT101: .WORD &MS346,EMS14 EMS341 "ar wld 


051773 .WORD £MS511.EMS503,EMS501 0 
EMT102: .WORD EMS337, MS70 
000000 “WORD £MS511.EMS503,0 
046627 EMT103: .WORD &MS301.EMS313.EMS254,EMS347,EMS15 
“WORD £&MS511.EMS503 
000000 “WORD £&MS14,EMS332,0 
050170 EMT104: .WORD &MS346,EMS17.EMS341.EMS16 
051773 .WORD &MS511.EMS503,EMS501 ,0 
050170 EMT105: .WORD &MS337.EMS17 eic341 ;EMS16 
051773 .WORD &MS511.EMS503,EMS 
6627 EMT106: .WORD &MS301.EMS313. Sade EMS347,EMS16 
“WORD &MS51 1EMS503 
000000 “WORD £MS17,EMS332,0 
050170 EMT107: .WORD &MS346,EMS20, EMS341 sEMS21 
051773 “WORD £MS511.EMS503,EMS 
041757 EMT110: .WORD EMS S351 1 Ens OFMe350. EMS22,—MS315 
000000 -WORD €MS511.E 


050361 EMT111: WORD EMS 20 EHeSSs. EMS350,EMS22,EMS333 
000000 .WORD £&MS511,EMS5 
050170 £€MT112: .WORD EMS nS337° 7-EMSe0 EMS341 EMS21 
“WORD EMS51 03 EMS 
050170 EMT113: .WORD EMS $20 goeszy.  ens21. EMS350,EMS22,EMS334 
000000 “WORD EmS511 “EMS501,0 
041757 EMT114: .WORD  &MS20 EMS352 EMS21,EMS350,EMS22,EMS333 
000000 WORD EMeSTice 
046627 EMT115: WORD EMS301 EMSat 3” EMS254,EMS347,EMS21 
-WORD £MS511,EMS503 


000000 “WORD EMS20 EMS332,0 
050170 £MT116: _WORD Mes4b, EMS23,EMS341.EMS24 
051773 WORD EMSS11 /EMS503, EMS 
050170 EMT117: .WORD &MS337.EMS23 eNs341 EMS24 
051773 “WORD £MS511.EMS503,EM 


046627 EMT120: .WORD €&MS301,EMS313, EMSo54. 5EMS347,.EMS24 
. WORD ENS511 ENS503 


000000 23,€MS332,0 
050170 EMT121: .WORD &MS346,EMS25.EMS341,EMS26 
051773 “ WORD EMSs 19. "EMS503,EMS501,0 


SEQ 0140 


ee eee 
Sess sss sees Sr a a we ee ee ee 
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WAG 
Ww 
© 
Nm 
© 


ted eed ed ed eed eed 
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© 


226 0 
227 035574 
228 035606 


LE 
050143 


052427 
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050170 
051773 
046627 


000000 
047273 


000000 
050420 
000000 
050170 
000000 
046627 


042773 
052070 


000000 
050716 
000000 
000000 
042773 
000000 
050716 
000000 


050716 
000000 


EMT122: .WORD 
. WORD 
eMT123: .WORD 
. WORD 
. WORD 
EMT124: . WORD 
. WORD 
EMT125: .WORD 
. WORD 
. WORD 
EMT126: .WORD 
. WORD 
EMT127: .WORD 
. WORD 
. WORD 
EMT130: .WORD 
. WORD 
EMT131: .WORD 
. WORD 
EMT132: .WORD 
. WORD 
EMT133: .WORD 
. WORD 
EMT134: .WORD 
. WORD 
EMT135: .WORD 
- WORD 
EMT136: .WORD 
. WORD 
EMT137: .WORD 
. WORD 
EMT140: .WORD 
. WORD 
EMT141: .WORD 
~ WORD 
EMT142: .WORD 
. WORD 
EMT145: .WORD 
. WORD 
EMT144: .WORD 
. WORD 
EMT145: .WORD 
. WORD 
EMT146: .WORD 
. WORD 
EMT147: .WORD 
. WORD 
EMT150: .WORD 
. WORD 
EMT151: WORD 
. WORD 
EMT152: .WORD 
. WORD 
EMT153: WORD 
. WORD 
EMT154: .WORD 
. WORD 


EMS337, EMS25 EMS 341 ,EMS26 
EMS511,EMS503,EMS501 .0 
EMS301,EMS313, ete °—EMS347,EMS26 
EMS511 EMS503, 

EMS2> 4 EMS33 

EMS 30¢ 06, “ENS? EM PMs307, EMS2 

EMS $33] »EMS27 éms353 

EMSs 1 eM 03 

EMS30,£ 15,0 

mS33P, EMS2?" EMS341,EMS30 

ENS51 »EMS503,0 
MS301,EMS313,.EMS254,EMS347,EMS30 
EMSS1 1 EMSS03 


EMS511 “EMS 
EMS ease ie EMS250,.£MS341.EMS30 
angi -EMS mS504 0 

MS331,EMS4 ,EMS255 


ENS) 1,€MS504,0 

MS35 ens Ae EMS360,EMS15 
EMeSTi cE 1,0 
EMS261 


Ese 

EMS311 -EMS503,0 

MS300.EMS36 EMs307, EMS2 
EMSS 1 ~£MS501,0 
EMS355,EMS37,EMS255,EMS341.EMS30 
EMSS 11 ~EMS504,0 

MS346,EMS40,EMS345 
EMSs1i, ,0 
ENS337- EMS40,€MS341.EMS30 


A: 
EMS363. -EMS310.EMS41 
EMS511,EMS501 
EMS337.EMS41 VeRs361, EMS252,EMS327,EMS253 


ehh ,EMS501, 
EMS41 EMS 354 -EMS364 oEMS252,EMS365 ,EMS253 


EMS511 
EMS301 EMS 306, EMS 36 
EMS511. -EMS3O1 °EMS503,0 


ata ed 
ets EMS503,0 
MS367, “EMS 393. *EMS365, EMS42,EMS354,EMS3 


EMSS 1 0 

EMS 

EMS511.EMS501,0 

EMS43 ens354 EMS36 

EMS511,E ,0 

EMS 367 "EHS353,EHS365, EMS36,EMS370 
EMS511.EMS503.0 


EMS 367" “ENS 353-EMS365, EMS36,EMS 371 
EMS511,EMS503,0 


SEQ 0141 


a 


LS EEO sae 


ernst seer cere - 


229 055614 


232 646 
233 035654 
234 664 
235 035672 
236 


284 4 
285 036452 


CZRMQBO RMO5/3/2 DSKLS 
ERROR MESSAGE TABLE 


052427 
050143 


14 
052427 


051773 


M 11 
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047273 


052070 
000000 
040702 
000000 
043643 
052115 
050716 
000000 
047762 


000000 
050170 
000000 
050170 
000000 


050170 
000000 
050170 
000000 
050170 
000000 
050274 


051120 


051773 
040702 
000000 


EMT155: . 
EMT156: 
EMT157: . 
EMT160: . 


EMT161: . 
EMT162: . 
EMT163: 
EMT164: . 
EMT165: . 


EMT 166: 
EMT167: 
EMT170: 
EMT171: 
EMT172: 
EMT173: 
EMT174: 


EMT175: 
EMT176: 


EMT177: 
EMT200: 


EM1 201: 
EMT202: 
EMT203: . 
EMT204: . 
EMT205: 
EMT206: 


EMT207: . 


EMS 300, EMS44,EMS307,EMS2 
EMS511.EM $303. 0 
EMS 367, EMS 353.EMS365,EMS44,EMS354,EMS3 
EMSS 11. EMS503.0 

MS300, EMS45,&MS307,EMS2 

EMSS} 1,—MS503,0 

EMS 367,EMS353,£MS365,EMS45,EMS 354 ,.EMS3 
EMS511,EMS503,.EMS501 

EMS35.EMS333, 

EMS 300. EMS46,EMS307,EMS2 

EMSS 11 S 

EMS337.EMS46,EMS353 
EMS511.€MS503,EMS501,0 
EMS35,EMS335,EMS337,EMS41,EMS334,EMS372 
EMS511,EMS501,0 

EMS4 7 Ens339 EMS337,EMS41,EMS335,EMS372 


511,EMS5 
EMS 337,EMS35,EMS327,EMS47 
EMS511, j 
EMS41,£MS333,EMS372,0 

EMS 300, EMS47< EMS307 EMS2 


EMS511,EMS501.EMS503,0 
EMS50,EMS335 EMS340 EMS36,EMS333 
EMes icc, MS501,EMS503,0 

EMS337, EN 5 

EMS511,EMS501,0 

EMS50 3 

EMS511, ,0 


EMS511 


EMS300, “ENS 30 EMS327,EMS255 ,EMS327,EMS256 


EMS511,EMS501,0 

eno31. EMS256. -EMS341,EMS600 
MS300,EMS250,EMS341,EMS600 

EMS511 eEMS504 ,0 


EMS337,EMS52,EMS341,EMS601 
EMS511,EMS501,0 
EMS346,EMS52,£MS341,EMS602 
EMS311 -EMS501,0 
MS346,EMS51,EMS341,EMS602 
EMSS TI -EMS501,0 
EMS 346. EMS52,EMS345,EMS373,EMS255 
EMS511.EMS504,EMS501 .0 
EMS346,EMS52,EMS341,EMS27 
EMS511.EMS504,EMS501 .0 
EMS53,€MS354,EMS 
EMS511 emSsOs. EMS502,EMS5 


10,0 
EMS337, EMS54,EMS374,EMS250,EMS327,EMS255 


EM Ems 
EMS511. EMS504 EMS501,0 
EMS54 

EMS511, EMSS 0 


SEQ 0142 


—— ae 
i > 


sinensis 


CZRMQBO RMOS/3/2 DSKLS 
ERROR MESSAGE TABLE 


341 0 
342 037352 


042773 


TST 2 


050444 


050101 


oe 2 ee ee ee - 


N 11 
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000000 


000000 
050274 


000000 
000000 
050361 
000000 
041000 
000000 
044400 
000000 
051151 
000000 


051165 
052070 


051244 
000000 


EMT210: 
EMT211: 
EMT212: . 
EMT213: . 


EMT214: . 
EMT215: . 
EMT216: 
EMT217: . 
EMT220: 
EMT 221: 
EMT222: . 
EMT223: . 
EMT 224: . 
EMT 225: 
EMT226: . 
EMT 227: 
EMT230: 
EMT231: . 
EMT232: . 
EMT233: 
EMT 234: . 
EMT255: 
EMT236: . 


EMT237: . 
EMT 240: 
EMT 241: 
EMT242: ; 


. WORD 


Emsetie EMS354,EMS364 ,EMS250 


4 
EMS54 ,EMS354,EMS364,EMS255 
EMS511,€MS504,0 

EM MS337, EMS55 

EMS511,EMS504 


4,0 
EMS56 re ,EMS373,EMS262, EMS327, EMS251 


EMS511 


oEMS 
EMS363,EMS306,EMS61 
eres -EMS501,0 
mS62, EMS353, ,EMS375 ,EMS251 


501,0 
EMS62 ,éns335.£ EMS376,EMS262 


EMSS! 
EMS62 Ens333 EMS376,EMS250 
EMS511,E .0 

EMS 346 6 Ene, EMS341,EMS603 

EMS511_EMS 

EMS346.EMS63 EMS376 EMS262 
EMS511,EMS501.E 

EMSO3 EMS 333 -£ PAT EMS363,EMS310.EMS262 


ea 1.€ 


EmSeiie 

EMS63 goesee EMS41 

EMS511,EMS501,0 

enss1 ,£MS377,EMS342 ,EMS365 ,EMS63,EMS332 
MS307" EMS353,EMS365,EMS63,EMS401 


EMSS 11 -EMS503,EMS 
EMS372,EMS365,EMS64 .EMS354,EMS3 


EMS357 7 ,EMS36. oEMS372 
eHe356, EMS360,EMS15 
3, E6356, EMS361,EMS15 


EMS16,EMS377 
EMS511,EMS503, 3 
MS300.EMS65,EMS307,EMS2 
EMS9 11 “EMS502, 


EMS503, 
EMS56,EMS377,EMS376-EMS252,EMS 372, EMS 350 
EMS65 ,EMS401 
EMS511,€MS502,EMS503,EMS501,0 

EMS 300, EMS66,EMS307,EMS2 

EMS511.EMS501 .EMS503,0 

EMS15,—MS400 EMS 372. EMS350. EMS66,EMS401 
EMS511,EMS503,EM 

EMS66, EMS 336 gotS20 EMS15,—MS406,EMS405 ,EMS604 
EMS511,EMS503, 
EMS403.EMS604.EMS402,EMS21.EMS377 
EMS511,—MS503 

EMe 36, EMSS35, 0 


SEQ 0145 


BESSPSPPYrP VO 


Al 


ee eee 


! 


° | a | ag 4 


| ERROR MESSAGE TABLE 


343 937340 
344 037356 
345 364 


36 566 
363 037574 
364 037604 
365 037612 
366 624 


399 040204 


VIAL 


rore€ 


050124 
052070 


051314 


PALAU V¥US.VYV 


050157 
051333 
031335 
000000 
051244 


000000 
051333 
000000 
050157 
000000 
051244 


000000 
050157 
000000 
051333 
000000 
051333 
000000 
051244 
000000 
051335 
000000 
050157 
000000 
051244 


000000 
050157 
000000 
051333 
000000 
051333 
000000 
051244 


000000 
051335 
000000 
051333 
000000 
051356 
0000090 
050157 
000000 
051244 
000000 
051333 
000000 
051333 
000000 
051333 


EM1243: . 
EMT244: . 
EMT245: . 
EMT 246: 


EMT 247: 
EMT 250: 
EMT251: 


EMT 252: 
EMT253: 
EMT 254: 
EMT255: 


EMT256: 
EMT257: 
EMT260: 


EMT261: 
EMT 262: 
EMT 263: 
EMT 264: 


EMT 265: 
EMT 266: 
EMT 267: 
EMT270: 
EMT271: 


EMT272: 
EMT273: 
EMT274: 


SrArnnwoi Vi.~cF. IO FAYE JOY"*0D 


: 


sasemmaam 


Emeeii ens yet EMS 340 ,EMS26,EMS404 ,EMS405 ,EMS604 


EMSO3 ensest EMS405,EMS604 
EMSS 1 11.€ EMS50 

36, Ens3 70 EMS405.EMS604 
enssit € 


MS403., Emsa0s. EMS402,EMS24,—MS377 
EMes 11 EMS503. 
EMS 36,£MS335,0 
Ens51 Seems EMS405,EMS604 
66, EnS336 EMS340,EMS15,EMS406,EMS405.EMS605 
ENS51{ Eh 


MSZ03EMSCO5, EMS402,EMS21,EMS377 
cnets, .EMS503 


36.EMS335.0 
ioe STi ene308 EMS340,EMS26,EMS404 ,EMS405 ,EMSG05 
EMS401 , EMS405 ,EMS605 


E 
ens3i-¢ 503.0 

E MS370,EMS405,EMS605 
Emesii en MS503, 

EMS403, EMSCOS. EMS402,EMS24,EMS277 
EMS511.EMS503 

EMS36,EMS335,0 

ENS6? ENSSIG.EMSAOS, ,EMS605 


EMS51 
EMSC6, EMS 336, £MS340,EMS15,EMS406,£MS405,.EMS606 
Emesti ENS 03,0 

EMS403 “EMS606,EMS602.EMS21 .EMS377 

EMS511 EMS305 


EMS 36,EMS335, 
MS66.EMS336 36, Ems340, ,EMS26,EMS404, EMS405 ,EMS606 
EMS401 EMS405,EMS606 
EMSST ice 


EMS5 11 -EMS5O 

EMS 36 e670: EMS405 .EMS606 
EMSS Ti E mS503,0 
EMS 203, EMSG06, EMS402.EMS24,EMS377 
EMSS11.EMS503 
EMS 36,£MS335,0 
rest EMS401 . EMS405, EMS606 


1 5 

EMS67 EMS 332 EM EMS405,EMS606 

EMS511 

MS66 £n5356 émséo7 

EMS511.E 0 

rest en 336 EMS340.FMS15,EMS406,EMS405.EMS607 
ms405, »EMS607.EMS402,EMS21,EMS377 

EMeS 11 -EMS503 


EMS27,EMS336,0 
EMS27 ;EMS370, EMS405 ,EMS607 














'EMS511.E 


Enso? ENG371 EMS405,.EMS607 
EMS 36 ,EMS404.EMS405,EMS607 


SEQ 0144 


mMmmmmmmmmmmmmmmmme ol 


400 040214 


413 040356 


CZRMQBO RMOS/3/2 DSKLS 
FRROR MESSAGE TABLE 


052427 
3 


052427 


TST 2 


052070 


046670 
052115 


C 1 
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000000 . WORD EMS511 ,£MS503,0 
051333 EMT275: .WORD EMS5 3, EMS4O1 EMS405 
WORD €MS511,E 


WORD &MS51 
050157 EMT277: E 
000060 “WORD ENS51{ .EmS508, 0 


051244 EMT300: .WORD 
. WORD ENSS1 ~EMSS03 


000000 .WORD EMS27,EMS336,0 
051333 EMT301: .WORD MS70,EMS401,EMS40... EMS607 
000000 . WORD ate 11,€MS503,0 


eo he EMT302: .WORD E€MS300,EMS255.EMS341,EMS600 


0000 -WORD &MS511,EMS504,0 


, $502.0 
051333 EMT276: .WORD EMS67 ens332 EMS405,EMS607 
000000 ; \, 


505, 
MS336,EMS340,EMS26, EMS404 ,EMS405 ,EMS607 
MS403,EMS607,EMS402,EMS24 ,EMS377 


aabastastastasinslastastaciasiastastastasiastastastastaslestastaslaslastastaslaslastastastastactastastastaslaslasiastaslasiastastasiasiasios.es[asiesiati os) e461 0slesl ese eee 
ie ie ie ie ie i i i i _ _ _ -_ _ eh mc A hc cl hc mc. Ll Tl NT hh TT TT hh. Lh hh. he 2 Sf ee 


D 12 
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ERROR MESSAGE TABLE SEC 0146 

1 040364 052761 000000 EHT1: .WORD €£H1,0 

2 040370 053037 000000 EHT2: .WORD EH2,0 

3 040374 053054 000000 EHTS: .WORD £H5,0 

4 040400 053112 000000 EHT7: .WORD £H7,0 

5 040404 053131 000000 EHT47: .WORD £H47,0 

6 040410 053157 000000 EHTS2: .WORD £H52,0 

? 040414 053255 000000 EHT57: .WORD £H57,0 

8 040420 053313 000000 EHT61: .WORD £H61,0 
9 4 053351 000000 EHT65: .WORD £H65,0 
10 04 053425 000000 EHT71: .WORD £H71,0 
11 040434 053045 009000 EHT74: .WORD £H3,0 
12 040440 053502 000000 EHT115: .WORD £H115,0 
13 040444 053577 000000 EHT130: .WORD £H130,0 
14 040450 053715 000000 EHT132: .WORD £H132,0 
15 040454 054013 000000 EHT142: .WORD £H142,0 
16 0 054111 000000 EHT145: .WORD £H145,0 
1? 054226 000000 EHT150: .WORD £H150,0 
18 040470 054324 000000 EHT213: .WORD £H213,0 
19 040474 054421 000000 EHT220: .wWORD £H220,0 


im . 


. 


mannnnnrnansn 
* ae Bs :' Se Of ° % 


PYWAYWMNANWMNNNANNNNNVWVUNWNVNNNHNNNNMNHNNNYKNNNNYNM 


oD ae coe — ——-. 


EL A a 
a eR eee . — 


ES ne 


E 12 
CZ2RMQBO RMO5/3/2 DSKLS TST 2 MACRO VO04.00 4=-APR=81 01:29:56 PAGE 41 
FRROR MESSAGE TABLE SEQ 0147 
1 040500 054460 EDT1: WORD ED! 
2 040502 054470 EDT2: .WORD ED2 
3 040504 054474 EDT5: .WORD EDS 
4 040506 054502 EDT47: .WORD £ED47 
5 940510 054512 EDTS2: .WORD €ED52 
6 040512 054524 EDT57: .WORD €&D57 
? 040514 054532 EDT61: .WORD €ED61 
8 040516 054544 EDT65 WORD €£D65 
9 040520 054554 EDT?71 WORD €ED71 
10 040522 054470 EDT74 WORD ED2 
11 040524 564 EDT115: .WORD €&D115 
12 040526 054576 EDT130: .WORD £D130 
13 040530 054564 EDT132: .WwORD £D115 
14 040532 054612 EDT220: .WORD £ED220 


Eee ee ee ++ er eee eee ~ 


| F 12 
 CZRMQBO RMOS/3/2 DSKLS TST 2 MACRO V04.00 4=APR=81 01:29:56 PAGE 42 
| ERROR MESSAGE TABLE SEQ 0148 


1 060534 054616 EFT1: WORD EFI 
2 040536 054621 EFT2: .WORD EF2 
3 040540 054622 EFTS: .WORD €EF5 
4 040542 054624 EFTS7: .WORD EF57 
5 040544 054616 EFT65: . WORD €EF1 
6 040546 054616 EFT71: WORD EF] 
? 040550 054621 EFT?4: .WORD EF2 
8 040552 054624 EFT115: .WORD EF57 
9 040554 054630 EFT130: .WORD EF130 
10 040556 054624 EFT132: .WORD EF57 
11 040560 054622 EFT220: .WORD- EF5 


i LLL 
LL reheat, _——— ee ee ee wee ee ee ee ee -_ 


—_—~—-- _ _ 
——— esse 


_—=- 
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ERROR MESSAGE TABLE SEQ 0149 


1 040562 116 117 116 EMS1 -ASCIZ @NONEXISTENT DEVICE ‘'NED'’ (RMCS2.BIT 12) a 
2 040633 103 117 116 EMS2:  .ASCIZ @CONTROLLER CLEAR ‘CLR’ (RMCS2.BIT 05) a 
3 040702 106 125 116 EMS3:  .ASCIZ2 @FUNCTION CODE (RMCS1, BITS 01 - 05) a 
4 040747 125 116 125 EMS4:  .ASCIZ @UNUSED BIT POSITIONS OF a 
5 041000 104 105 126 EMSS:  .ASCIZ @DEVICE AVAILABLE “DVA'' (RMCS1, BIT 11) a 
6 041050 120 101 122 EMS6: .ASCIZ Y ERROR ‘PAR'' (RMER1, BIT 03) a 
? 041114 104 101 124 EMS7: .ASCIZ @DATA PARITY ERROR ‘DPE’ (RMER2. BIT 03) @ 
8 041165 120 101 122 EMS10: .ASCIZ @PARITY TEST 'PAT’’ (RMCS2, BIT 04) @ 
9 041230 115 101 123 EMS11: .ASCII @MASSBUS CONTROL BUS PARITY ERROR ‘'MCPF’' a 
10 041300 050 122 115 -ASCIZ @(RMCS1, BIT 13) @ 
11 041321 111 114 114 EMS12: .ASCIZ @ILLEGAL REGISTER ERROR ‘‘ILR’’ (RMER1, BIT 01) a 
12 041377 104 111 101 EMS13: .ASCIZ @DIAGNOSTIC MODE ‘DMD'' (RMMR1, BIT 00) a 
13 041446 115 105 104 &MS14: .ASCIZ @MEDIUM ON LINE ‘MOL'’ (RMDS, BIT 12) a 
14 041513 115 101 111. EMS15: .ASCIZ @MAINTENANCE UNIT READY ‘MUR’’ (RMMRI. BIT 09) a 
15 041571 115 101 111 EMS16: .ASCIZ @MAINTENANCE WRITE PROTECT 'MwP’' (RMMR1, BIT 03) a 
16 041652 127 122 111 EMS17: .ASCIZ @WRITE LOCK 'WRL'’ (RMDS, BIT 11) a 
17 041713 104 105 126 EMS20: .ASCIZ @DEVICE CHECK 'DVC’' (RMER2, BIT 07) a 
18 041757 115 103 111 EMS21: .ASCIZ @MAINTENANCE DRIVE FAULT ‘MDF’ (RMMR1, BIT 06) a 
19 042036 125 116 123 EMS22: .ASCIZ @UNSAFE STATUS ‘UNS'' (RMER1, BIT 14) 
20 042103 123 105 105 EMS23: .ASCIZ @SEEK INCOMPLETE STATUS '‘SKI’’ (RMER2, BIT 14) a 
21 042161 115 101 111 EMS24: .ASCIZ @MAINTENANCE SEEK ERROR 'MSER’’ (RMMR1. BIT 07) a 
22 042240 120 117 123 EMS25: .ASCIZ @POSITIONING IN PROGRESS ‘PIP’’ (RMDS, BIT 13) 2 
23 042316 115 101 111 EMS26: .ASCIZ @MAINTENANCE ON CYLINDER ‘MOC’’ (RMMRI, BIT 08) a 
24 042375 105 116 104 EMS27: .ASCIZ @END OF BLOCK ‘EBL’ (RMMR1, BIT 13) a 
25 042441 104 111 101 EMS30: .ASCIZ @DIAGNOSTIC END OF BLOCK ‘DEBL’’ (RMMR1. BIT 13) a 
26 042521 114 101 123 EMS31: .ASCIZ @LAST SECTOR STATUS 'LS'’ (RMMRI, BIT 02) a 
27 042572 114 101 123 EMS32: .ASCIZ @LAST SECTOR/TRACK STATUS ‘LST’’ (RMMR1. BIT 01) a 
28 042652 123 105 103 EMS33: .ASCIZ @SECTOR ADDRESS BITS OF a 
042702 124 122 101 EMS34: .ASCIZ @TRACK ADDRESS BITS OF a 
30 042731 126 117 114 EMS35: .ASCIZ @VOLUME VALID ‘‘Vv'’ (RMDS, BIT 06) a 
31 042773 107 117 040 EMS36: .ASCIZ @GO BIT (RMCS1. BIT 00) a 
32 043023 103 131 114 EMS37: .ASCIZ @CYLINDER ADDRESS BITS OF a 
33 043055 114 101 123 EMS40: .ASCIZ @LAST BLOCK TRANSFERRED, 'LBT’’ (RMDS. BIT 10) a 
043133 103 117 115 £—MS41: .ASCIZ @COMPOSITE ERROR ‘ERR’ (RMDS, BIT 14) a 
35 043201 103 117 115 EMS42: .ASCIZ @COMMAND SEQUENCER TEST BIT “TST’’ (RMMR2. BIT 12) a 
36 043263 104 122 111 EMS43: .ASCIZ @DRIVE READY STATUS 'DRY'’ (RMDS, BIT 07) a 
37 043334 103 117 116 EMS44: .ASCIZ @CONTINUE ‘CONT’ (RMMRI, BIT 06) a 
043375 111 116 126 EMS45: .ASCIZ @INVALID COMMAND ERROR “‘IVC'' (RMER2. BIT 12) a 
39 043452 114 117 123 EMS46: .ASCIZ @LOSS OF SYSTEM CLOCK ERROR 'LSC’’ (RMER2. BIT 11) a 
40 043534 117 103 103 EMS47: .ASCIZ @OCCUPIED "OCC'’ (RMMR1, BIT 15) a 
41 043574 111 114 114 EMSSO: .ASCIZ @ILLEGAL FUNCTION “‘ILF” (RMER1, BIT 0) a 
42 043643 117 106 106 EMS51: .ASCIZ @OFFSET DIRECTION ‘‘OFD’’ (RMOF. BIT 07) a 
43 043712 117 106 106 EMS52: .ASCIZ @OFFSET MODE ‘OM’ (RMDS. BIT 00) a 
44 043753 122 125 116 EMS53: .ASCIZ @RUN AND GO 'RG'' (RMMRI, BIT 14) @ 
45 044014 111 116 126 EMS54: .ASCIZ @INVALID ADDRESS ERROR “IAE'' (RMER1, BIT 10) a 
46 044071 101 104 104 EMS55: .ASCIZ @ADDRESS OVERFLOW ERROR ‘AOE’ (RMER1. BIT 09) a 
47 044147 122 105 107 EMS56: ASCII @REGISTER MODIFICATION REFUSED ERROR a 
48 044213 042 122 115 -ASCIZ @''RMR'’ (RMER1, BIT 02) a . 
49 044242 104 122 111 EMSS7: .ASCIZ @DRIVE REQUEST REQUIRED STATUS 'DRQ'* (RMDT, BIT 71) a 
50 044326 120 122 117, EMS60: _ASCIZ @PROGR LE STATUS 'PGM'’ (RMDS, BIT 09) a 
51 0444 104 122 111 EMS61: .ASCIZ @DRIVE PRESENT STATUS ‘DPR'' (RMDS, BIT 08) a 
52 044453 120 117 122 EMS62: .ASCIZ @PORT REQUEST FLOP 'RQA,ROQB’’ (RMMR2, BITS 15.14) a 
53 044534 101 124 124 EMS63: .ASCIZ @ATTENTION 'ATA’' (RMDS, BIT 15) @ 
54 044574 127 122 111 EMS64: .ASCIZ @WRITE LOCK ERROR 'WLE’' (RMER1. BIT 11) a 
55 044644 105 130 103 EMS65: .ASCIZ @EXCEPTION ‘REX'' (RMMR1, BIT 12) @ ; 
56 044705 177 116 126 EMS66: .ASCIZ @INVALID COMMAND ERROR “IVC'' (RMER2, BIT 12) a 
57 044762 124 101 107 EMS67: .ASCIZ @TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL a 


a 


- ——— ee See 
Se et SN tiene sient 
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ERROR MESSAGE TABLE SEQ 0150 
58 045036 114 117 116 -ASCIZ @LINES (RMMR2, BITS 10,1115) a 
39 065074 123 105 107 £MS70: .ASCIZ @SEARCH ENABLE "ESRC'’ (RMMRT, BIT 11) a 
61 045142 117 120 105 EMS71: .ASCIZ @OPERATION IMCOMPLETE ERROR ‘‘OPI'‘(RMER1 B1113) a 
62 045221 104 i117 123 EMS72: .ASCIZ @DISABLE SEARCH TIMEOUT 'MSEN'’ (RMMRI BIT 12) a 
63 045277 104 122 117 EMS73: .ASCIZ @DRIVE TIMING ERROR 'DTE''(RMER1,BIT 12) @ 
64 045347 115 101 111 EMS?4: .ASCIZ @MAINTENANCE INDEX PULSE ‘MI''(RMMRI BIT 2) @ 
65 045422 115 101 111 EMS75: .ASCIZ @MAINTENANCE SECTOR PULSE ‘MS''(RMMR1 BIT 5) @ 
66 045476 106 117 122 EMS76: .ASCIZ @FORMAT BIT ‘FMT16'' (RMOF ,BIT12) @ 
67 045537 123 105 103 EMS77: .ASCIZ @SECTOR COMPARE 'MSC''(RMMA] BIT 1) @ 
68 045602 120 122 117 EMS100: .ASCIZ @PROM STROBE 'WC'’ (RMMR1 BIT 5) @ 
69 045642 115 101 111 EMS101: .ASCIZ @MAINTENANCE BIT CLOCK 'MCLK'’ (RMMR1 BIT11) @ 
045716 114 117 117 EMS102: .ASCIZ @LOOKING FOR SYNC 'PLFS''(RMMR1,BIT10) @ 
71 045764 127 122 111 EMS103: .ASCIZ @WRITE GATE ‘BO0'' (RMMR2 BITO) a 
72 046024 119 105 101 €MS104: .ASCIZ @HEADER SYNC PATTERN @ 
73 046051 110 105 101 EMS105: .ASCIZ @HEADER AREA 'PHA'’ (RMMR1 BIT 7) 
74 046112 105 116 101 EMS106: :ASCiZ @ENABLE CRC OUT “ECRC’’ (RMMR] BIT 9) @ 
75 046157 110 105 101 EMS107: .ASCIZ @HEADER @ 
76 046167 122 105 101 —MS110: .ASCIZ @READ GATE ‘B801'(RMMR2 BIT 1) a 
77 646226 110 105 101 €MS111: .ASCIZ @HEADER ERROR 
78 046244 104 101 124 EMS112: .ASCIZ @DATA TIMING SEQUENCER OUTPUT a 
79 046302 104 107 124 EMS113: .ASCIZ @DATA AREA 'PDA'' (RMMRI BIT 8) a 
046341 105 116 101 EMS114: .ASCIZ @ENABLE ECC OUT ‘ECC’’ (RMMR1, BIT 4) @ 
81 046407 105 103 103 —MS115: .ASCIZ @ECC PATTERN @ 
82 046424 105 103 103 EMS116: .ASCIZ @ECC ERROR @ 
83 046437 104 117 123 EMS250: .ASCIZ @DISK ADDRESS REGISTER (RMDA) a 
046475 103 117 116 EMS251: .ASCIZ @CONTROL STATUS REGISTER #1 (RMCS1) a 
85 046541 105 122 122 EMS252: .ASCIZ @ERROR REGISTER #1 (RMER1) @ 
86 046574 105 122 122 EMS253: .ASCIZ @ERROR REGISTER #2 (RMER2) @ 
87 046627 115 101 111 £MS254: [ASCIZ A@MAINTENANCE REGISTER #1. (RMMR1) a 
046670 104 105 123 EMS255: .ASCIZ @DESIRED CYLINDER REGISTER (RMDC) a 
B9 046732 117 106 106 EMS256: .ASCIZ @OFFSET REGISTER (RMOF) @ 
90 046762 104 122 111 EMS257: .ASCIZ @DRIVE TYPE REGISTER (RMDT) a 
91 047016 110 117 114 EMS260: .ASCIZ @HOLDING REGISTER (RMHR) @ 
92 047047 123 105 122 EMS261: .ASCIZ @SERIAL NUMBER REGISTER (RMSN) a 
93 047106 101 124 124 EMS262: .ASCIZ @ATTENTION SUMMARY REGISTER (RMAS) @ 
95 047151 103 101 116 EMS300: .ASCIZ @CANNOT CLEAR @ 
96 047167 103 101 116 EMS301: .ASCIZ @CANNOT WRITE/READ a 
97 047212 101 116 131 EMS302: .ASCIZ @ANY DEVICE REGISTER a 
98 047237 127 1117 124 EMS303: .ASCIZ @WITHOUT @ 
99 047250 105 122 122 EMS304: .ASCIZ @ERROR @ 
100 047257 101 040 117 EMS306: .ASCIZ @A ONE FROM a 
101 047273 125 123 11) EMS307: .ASCIZ @USING MASSBUS INITIALIZE. 1.£.. a 
102 047334 101 040 132 EMS310: .ASCIZ @A ZERO FROM a 
103 047351 105 126 105 £MS311: .ASCIZ @EVERY DEVICE REGISTER BIT POSITION a 
104 047415 124 110 105 EMS312: .ASCIZ @THE FOLLOWING BITS ARE STUCK 
105 047453 101 040 123 EMS313: .ASCIZ @A SHIFTING ONE BIT FROM 
106 047504 101 120 120 EMS314: .ASCIZ @APPEARS STUCK AT ZERO @ 
107 047533 101 120 120 £MS315: .ASCIZ @APPEARS STUCK AT ONE @ 
108 047561 122 105 107 EMS316: .ASCIZ @REGISTER SELECT 
109 047602 ~—s- 06 040 050 EMS3I7: [ASCiZ 91 (1.2.4,8.16) a” 
110 047622 062 040 050 £MS320: .ASCIZ a2 (1.2.4.8.16) a 
111 047642 64 040 050 EMS321: .ASCIZ a4 (1.2.4.8.16) a 
112 047662 070 040 050 EMS322: .ASCIZ @8 (1,2.4.8,16) @ 
113 047702 101 114 114 £MS323: LASCIZ @ALL ONES FROM a 
114 047721 101 114 114 £MS324: .ASCIZ @ALL ZEROS FROM a 
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115 047741 1017 124 O40 EMS325: .ASCIZ @AT ZERO 2 

116 047752 101 124 040 EMS326: .ASCIZ @AT ONE @ 

11? 047762 054 040 117 EMS327: .ASCIZ @, OR a 

118 047770 015 O12 103 EMS3350: .ASCIZ <CR><LF>@CS MBA CLRL a - 

119 050007 10> 1017 116 EMS331: .ASCIZ @CANNOT READ ZEROS FROM @ 

120 050037 111 123 040 EMS332: .ASCIZ @I1S INCORRECT a 

121 050055 111 123 040 EMS333: .ASCIZ @IS NOT SET a 

122 050071 117 123 040 EMS534: .ASCIZ @IS SET a 

123 G50101 123 110 117 EMS335: .ASCIZ @SHOULD NOT BE SET a 

124 050124 123 110 117 EMS336: .ASCIZ @SHOULD BE SET a 

125 050143 103 101 116 EMS337: .ASCIZ @CANNOT SET a 

126 050157 102 105 103 EMS340: .ASCIZ @BECAUSE @ 

127 050170 125 123 117 EMS341: .ASCIZ @USING @ 

128 050177 104 125 122 EMS342: .ASCIZ @DURING REGISTER TRANSFER a 

129 050231 125 116 105 EMS343: .ASCIZ @UNEXPECTED a 

130 050245 102 125 123 EMS344: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 

131 050274 102 131 040 EMS345: .ASCIZ @BY REGISTER TRANSFER @ 

132 050322 103 107 116 EMS346: .ASCIZ @CANNOT RESET @ 

133 050340 127 111 124 EMS347: .ASCIZ @WITHOUT SETTING @ 

134 050361 102 125 124 EMS350: .ASCIZ @BUT a 

135 050366 127 101 123 EMS351: .ASCIZ @WAS RESET BY @ 

136 050404 127 101 125 EMS352: .ASCIZ @WAS SET BY a 

137 050420 117 116 040 EMS353: .ASCIZ @IN DIAGNOSTIC MODE a 

138 050444 1117 123 040 EMS354: .ASCIZ @IS INCORRECT ACCORDING TO a 
9 050477 103 101 116 EMS355: .ASCIZ @CANNOT INCREMENT @ 

140 050521 127 101 123 EMS356: .ASCIZ @WAS NOT SET BY a 

141 050541 127 101 125 EMS357: .ASCIZ @WAS NOT RESET BY a 

142 050563 060 040 124 EMS360: .ASCIZ @0 TO 1 TRANSITION OF a 

143 050611 061 040 124 EMS361: .ASCIZ @1 TO 0 TRANSITION OF a 

144 0506357 117 123 040 EMS362: .ASCIZ @1S INCONSISTENT @ 

145 050660 103 101 116 EMS363: .ASCIZ @CANNOT READ @ 

146 050675 124 195 123 EMS364: .ASCIZ @TEST PATTERN IN @ 

147 050716 101 116 104 EMS365: .ASCIZ @AND @ 

148 050723 105 101 116 EMS366: .ASCIZ @CANNOT INITIALIZE @ 

149 050746 124 110 105 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 

750 051016 122 105 125 EMS370: .ASCIZ @RESET EARLY a 

151 051033 104 117 104 EMS371: .ASCIZ @DID NOT RESET ON TIME @ 

152 051062 104 125 122 EMS372: .ASCIZ @DURING COMMAND EXECUTION @ 

153 051114 124 117 040 EMS373: .ASCIZ a0 @ 

154 051120 127 177 124 EMS374: .ASCIZ @WITH ANY COMBINATION OF a 

155 051151 102 131 040 EMS375: .ASCIZ @BY READING a 

156 051165 102 131 040 EMS3576: .ASCIZ @BY WRITING a 

157 051201 127 107 123 EMS377: .ASCIZ @WAS SET a 

158 051212 127 101 123 EMS400: .ASCIZ @WAS NOT SET a 

159 051227 104 117 104 EMS401: .ASCIZ @DID NOT SET @ 

160 051244 127 119 111 EMS402: .ASCIZ @WHILE a 

161 051253 103 117 115 EMS403: .ASCIZ @COMMAND SEQUENCER DID NOT ABORT a 

162 051314 127 101 123 EMS404: .ASCIZ @WAS NOT RESET a 

163 051333 104 125 122 EMS405: .ASCIZ @DURING a 

164 051343 127 101 123 EMS406: .ASCIZ @WAS RESET @ 

165 051356 123 105 101 EMS407: .ASCIZ @SEARCH TIMEOUT a 

166 051376 101 106 124 EMS410: .ASCIZ @AFTER @ 

167 051405 127 101 123 EMS411: .ASCIZ @WAS CHANGED a 

168 0514 123 105 124 EMS412: .ASCIZ @SET EARLY a 

169 051435 114 116 103 EMS413: .ASCIZ @INCORRECT a 

170 051450 103 101 176 EMS414: .ASCIZ @CANNOT DETECT a 

171 051467 127 101 123 EMS415: .ASCIZ @wAS SIMULATED @ 
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ERROR MESSAGE TABLE SEQ 0152 
172 051506 103 11? 122 EMS416: .ASCIZ @CORRECT a 
173 051517 104 125 122 EMS417: .ASCIZ @DURING WRITE a 
174 051535 107 105 116 EMS420: .ASCIZ @GENERATED a 
175 051550 104 125 122 EMS421: .ASCIZ @DURING READ a 
176 051565 111 116 103 EMS422: .ASCIZ @INCORRECT DATA TRANSFERRED TO MEMORY @ 
178 051633 011 104 105 EMS5O0: .ASCII a DEVICE IS NONEXISTENT,a@<CR><LF> 
179 051664 011 104 105 “ASCII a DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 
180 051727 011 124 122 -ASCIZ a TRANSCEIVER ENABLE SWITCH IS OFFa<CR><LF > 
181 051773 011 111 106 EMSSO1: .ASCIZ @ IF MODULE, M7686,a<CR><LF 
182 052020 011 115 101 EMS502: .ASCIZ @ MASSBUS TRANSCEIVER, mS922 OR M5923 @<CR><LF > 
183 052070 011 103 123 EMS503: .ASCIZ a CS MODULE, M7684,a<CR><LF 
184 05211 011 194 123 EMS504: .ASCIZ a DS MODULE, M8685/M7685.a<CR><LF> 
185 052750 071 104 105 EMS505: .ASCIZ a DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF> 
186 052223 011 104 105 EMS506: .ASCIZ @ DEVICE IS NOT AN RMO5/3/2, ORa<CR><LF> 
187 052264 011 104 105 EMS5O7: :ASCIZ @ DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, ORa<CR><LF> 
188 052354 011 101 123 EMS510: .ASCIZ @ ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF > 
189 052427 015 012 011 —MS511: .ASCII <CR><LF>@ PROBABLE FAULT (S) :a@<CR><LF > 
190 052456 011 050 116 -ASCIZ a (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 
192 052526 122 105 101 EMS600: .ASCIZ @READ IN PRESET COMMAND a 
193 052556 117 106 106 EMS601: .ASCIZ @OFFSET COMMAND a 
194 052576 122 105 124 602: .ASCIZ @RETURN TO CENTER CENTER COMMAND @ 
195 052637 122 105 114 EMS603: .ASCIZ @RELEASE COMMAND a 
196 052660 122 105 103 E8604: LASCIZ @RECALIBRATE COMMAND a 
197 052705 123 105 105 S605: .ASCIZ @SEEK COMMAND @ 
198 052723 123 105 101 EMS606: .ASCIZ @SEARCH COMMAND @ 
199 052743 104 101 124 EMS607: .ASCIZ @DATA COMMAND @ 
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ERROR MESSAGE T SEQ 0153 


1 052761 105 130 120) Em) -ASCI1 @EXPCTD RECEVD REGSTRA<CRLF> 

2 053010 123 124 ey -ASCIZ @STATUS STATUS ADRESS@ 

3 053037 040 102 101. EHe: ASCII @ BASE@<CRLF> 

4 053045 101 104 122 EHS: -ASCIZ @ADRESSA 

5 053054 105 130 120 EHS: ASCII @EXPCTD STUCK@<CRLF> 

6 053073 122 105 123 ASCIZ LT BIT(S)a 

7 053112 105 130 120 EH?: ~ASCIZ @EXPCTD RECEVDA 

8 053131 040 106 111 EH47: .ASCIZ @ FIRST SECOND CRCa 

9 053157 105 130 120 EH52: .ASCII @EXPCTD RECEVD EXPCTD RECEVD@<CRLF> 
10 053216 117 122 -ASCIZ @FIRST FIRST SECOND SECONDA@ 
11 053255 122 105 103 EHS? ASCII @RECEVD DRVTYP@<CRLF> 
12 053274 104 122 126 -ASCIZ @DRVTYP REGADRA 
13 053313 040 105 130 EH61: .ASCIZ @ EXPECTED ECC RECEIVED ECCa 
14 053551 105 130 120 EH65: .ASCII @EXPCTD RECEVD TEST@<CRLF> 
15 053376 123 124 101 -ASCIZ @STATUS STATUS REGSTRA@ 
16 053425 105 130 120 EH71 ASCII @EXPCTD RECEVD _TEST@<CRLF> 
17 053453 123 124 101 -ASCIZ @STATUS STATUS PATTRNA@ 
18 053502 105 130 120 EH115: .ASCII @EXPCTD RECEVD REGSTR  TEST@<CRLF> 
19 053540 123 124 101 -ASCIZ @STATUS STATUS ADRESS PATTRNA 
20 053577 105 130 120 E€H130: .ASCI] @EXPCTD RECEVD REGSTR TEST  OFFSET@<CRLF> 
21 053646 123 124 101 -ASCIZ @STATUS STATUS ADRESS PATTRN REGSTRG@ 
e2 0535715 105 130 120 EH132: .ASCII @EXPCTD ACTUAL REGSTR OFFSET@<CRLF> 
23 053754 103 117 125 -ASCIZ @COUNT COUNT ADRESS REGSTRA@ 
24 054013 105 130 120 EH142: .ASCII @EXPCTD RECVED REGSTR OFFSET@<CRLF> 
25 054052 123 124 101 ~ASCIZ @STATUS STATUS ADRESS REGSTRA 
26 054111 105 130 i120 EH145: .ASCI] @EXPCTD ACTUAL REGSTR RMER1 RMER2@<CRiF> 
27 054157 103 115 120 -ASCIZ @CMPERR CMPERR ADRESS PATTRN PATTRN@ 
28 054226 105 130 120 EH150: .ASCII] @EXPCTD ACTUAL REGSTR FUNCTION@<CRLF> 

054266 122 105 123 -ASCIZ @RESULT RESULT ADRESS CODE 

30 054324 105 130 120 EH213: .ASCII @EXPCTD ACTUAL STATUS  TESia@<CRLF> 
31 054362 122 105 123 -ASCIZ @RESULT RESULT ADRESS REGSTRA@ 
32 054421 103 103 124 EH220: .ASCII @ACTUAL REGS*\a@<CRLF> 
Ss 054440 122 105 123 ~ASCIZ @RESULT ADRE. a 
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001136 
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000 
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<CRLF > 


SEQ 0154 
SGDDAT , SBDDAT , SADADR, 0 


$8 
MPO, STP I $TMP 
“BUFFER, sTmeie /BUFFER+2,0 


DA 
$TMP2,$TMP3,$TMPO,$TMP1.0 
$GDDAT, SBDDAT, STM PO, 0 

$GDDAT . $BDDAT 0,0 
SGDDAT.$BDDAT. SEDADR. $TMPO,0 
SGDDAT , $8DDAT . $ADADR. $TMPO. $TMP1.0 
SBDDAT. $8DADR 


0.0,0 
0 


<CRLF> 
@LIST OF hindi 9 ng 


<CRLF > 


=~--a<CRLF 

TRANSFER TESTaccRLF> 

CTOD TESTa<CRLF> 
MASSBUS INITIALIZE TEST@<CRLF> 
CLEAR STUCK ACTIVE TEST@<CRLF> 
TRISTATE TRANSFER TEST@<CRLF> 

nate Ve SELECT TEST@<CRLF> 

DRIVE TYPE TESTa@<CRLF> 

DEVICE AVAILABLE TEST@<CRLF> 
SEARCH TIMEOUT TEST@<CRLF> 

ree DTE TEST@<CRLF> 

FORMAT CHANGE TEST@<CRLF> 

PROM STROBE TEST@<CRLF> 

SYNC WORD COUNT INHIBIT FES TeECALE> 
SYNC gh By TEST@<CRL 

ABORT SYNC DETECTION TESTa<CRLF> 
SYNC GENERATION TEST@<CRLF> 

WRITE HEADER TEST@<CRLF> 

HEADER COMPARE TEST a<CRLF> 
ECC GENERATION TEST@<CRLF> 
ECC DETECTION TEST@<CRLF> 


@OPERATIONAL SWITCH SETTINGS@<CRLF > 


nein sel aie a<CRLF> 


USE@<CRLF > 


HALT ON ERROR@<CRLF > 
LOOP ON TEST@<CRLF> 


————- == 


a SS ae ee ee 


—_ —- 


= 


| M1 
| CZRMQBO RMO5S/3/2 DSKLS TST 2. MACRO V04.00 4=-APR=81 01:29:56 PAGE 1g. 


! 


Se em — 
—_—— —— — 


58 056043 


ERROR MESSAGE TABLE 


040 
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INHIBIT ERROR TYPEOUTS@<CRLF> 
<CRLF > 


@<CRL 

INHIBIT ITERATIONS@<CRLF > 
BELL ON ERROR@<CRLF > 

LOOP ON ERROR@<CRLF > 

LOOP ON TEST IN SWR<7:0>@<CRLF > 
™N128a<CRLF > 

TN64a<CRLF > 

TN32a@<CRLF > 

™N16a<CRLF> 

TN8@<CRLF > 

TN4Q@<CRLF > 

TN2@<CRLF > 

TN1a@<CRLF > 


SEQ 0155 
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| SYMBOL TABLE SEQ 0156 
SE = 176700 AUTSIZ 001326 CHRCNT 027221 EDT61 040514 EH145 054111 
| ACDW1 = 000000 AVECT1= 120254 CKSWR = 104410 EDT65 040516 EH150 054226 
ACDW2 = 000000 AVECT2= 000000 CLKSNC 023574 EDT?71 040520 H2 053037 
ACPUOP= 000000 A116 = 000400 CLOCK 001536 EDT74 040522 EH213 054324 
ADDWO = 000000 Al? = : 001 “LR = 000040 ED1 054460 EH220 054421 
1 = 000000 BADT 002642 CMNSTA 005004 ED115 054564 H 053045 
ADDW10= 000000 I = 000010 CNSLO1 031607 ED130 054576 EH47 053131 
ADDW11= 000000 BB00 = 000 CNSLO2 031617 ED2 054470 H5 053054 
ADDW12= 000000 BB01 = 000002 CNSLO3 031661 ED220 054612 EHS2 3=s-—« 053157 
ADDW13= 000000 BBO2 = 000004 CNSLO4 031670 ED47 =: 054502 EHS7 © 053255 
ADDW14= 000000 BBO03 = 0 CNSLO7 031724 EDS 054474 EH61 053313 
ADDW15= 000000 BB04 = 000020 CNSLOB 032066 ED32 054512 EH65 053351 
ADDW2 = 000000 BB0S = 40 CNSLO9 032067 EDS 054524 EH7 053112 
3 = 000000 BB06 = 000100 CNTCLR 022404 ED61 054532 EH71 0534 
ADDW4 = 000000 BBO7 = 000200 031553 ED65 054544 EMS1 040562 
ADDWS = 000000 BB08 = 00 T 00100 ED71 054554 EMS10 041165 
ADDW6 = 000000 BBO9 = 001000 CPSAVE 026342 EECC = 0000 EMS1 
ADDW7 = 000000 BITO = 1 CR = 000015 EFT1 040534 EMS101 045642 
ADDW8 = 000000 BITOO = 01 CRLF = 000200 EFT115 040552 EMS102 045716 
= 000000 BITO1 = 000002 CYLMSK= 001777 EFT130 040554 EMS103 0457 
ADEVCT= 000000 BITO2 = 4 DBCK = 100000 EFT132 040556 EMS104 046024 
ADEVM = 000000 BITO3 = 000010 DBEN = 040000 EFT2 040536 EMS105 046051 
ADR = 000001 BITO4 = 20 DBL = 002000 EFT220 040560 EMS1 046112 
AENV = 000000 BITOS = 000040 DCK = 100000 EFTS 040540 EMS107 0466157 
AENVM = 000000 BITO06 = 000100 DEISP = 177570 EFT57 040542 EMS11 0412 
AFATAL= 000000 BITO7 = 000200 DEBL = 020000 EFT65 040544 EMS110 046167 
ALL 031542 BITO8 = 00 DISPLA 001156 EFT71 040546 EMS111 046226 
AMADR1= 000000 BITO9 = 001000 DISPRE 000174 EFT74 0460556 EMS112 046244 
AMADR2= 000000 BIT1 = 000002 DLT = 0 EFI 054616 EMS113 
AMADR3= 000000 BIT10 = 002000 = EF130 054630 EMS114 046341 
AMADR4= 000000 BIT11 = 004000 PE = 000010 EF2 054621 EMS115 046407 
AMAMS1= 000000 BIT12 = 010000 DPEHI = EFS 054622 EMS116 046424 
AMAMS2= 000000 BIT13 = 020000 DPELO = 020000 EFS7 054624 EMS12. 041321 
AMAMS3= 00C000 BIT14 = 040000 = EHT1 40364 MS13 041377 
AMAMS4= 000000 BIT15 = 100000 DRIVES 032110 EHT115 040440 EMS14 041446 
= 000000 BIT2 = 000004 = 004 EHT130 040444 EMS15 041513 
AMSGLG= 000000 BIT3 = 000010 DRVCLR= 000010 EHT132 040450 EMS16 041571 
AMSGTY= 000000 BIT4 = 000020 = 0002 EHT142 040454 EMS17 041652 
AMTYP1= 000000 BITS = 000040 DSWR = 177570 EHT145 040460 EMS2 040633 
AMTYP2= 000000 BIT6 = 000100 DTE = 0100 EHT150 040464 EMS20 041713 
AMTYP3= 000000 BIT7 = 000200 DULPRT= 024024 HT2 040370 EMS21 041757 
AMTYP4= 000000 BIT8 = 000400 DVA = 004 EHT213 040470 EMS22 
= 001000 BIT9 = 000 DVC = 2 EHT220 040474 EMS23 042103 
APASS = BLNKS1 032345 EBL = 020000 EHT47 040404 EMS24 042161 
= 100000 BLNKS2 032344 ECH = 000100 EHTS 040374 042240 
APRIOR= BLNKS3 032343 = 004000 EHT52 040410 EMS250 
APTCSU= 000040 BLNKS4 032342 ECRC = 001000 EHT57 040414 EMS251 046475 
APTENV= 000001 BOTADR 027216 T1 040500 EHT61 040420 EMS252 046541 
APTSIZ= 000200 BOTFLG 027220 EDT115 040524 EHT65 040424 EMS253 046574 
APTSPO= 000100 BPTVEC= 000014 EDT130 040526 EHT7 04040 EMS254 046627 
ASWREG= B = 100000 EDT132 040530 EHT71 040430 EMS255 046670 
ATA = 100000 BUFFER 054636 0502 EHT74 040434 EMS256 046732 
ATESTN= BUFONE 054636 EDT220 040532 EH 052761 EMS257 046762 
ATNMSK= 000377 BUFTWO 055642 040506 EH115 053502 EMS26 =. 0042316 
ATNIBL 032450 CC = 004000 EDTS 040504 EH130 053577 EMS260 047016 
AUNIT = 000000 CH = 002000 EDTS52 040510 EH132 053715 EMS261 047047 
AUSWR = 000000 CHGADR 001330 EDTS7 040512 FH142 054073 EMS262 047106 
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SEQ 0157 
EMS27 042375 EMS361 050611 EMSS 043712 EMT124 035044 EMT206 036414 
EMS3 040702 EMS3G2 050637 EMS5 043753 EMT125 035062 EMT207 036444 
EMS30 = 042441 EMS363 050660 EMS54 044014 EMT126 035102 EMT 033050 
7151 EMS364 050675 EMS5SS 044071 Bar ¢7 035120 EMT270 036460 
EMS301 047167 EMS365 050716 EMS5S6 044147 EMT1 032720 EMT211 036476 
EMS302 047212 050723 EMSS? = 044242 EMT130 035144 EMT212 036514 
047237 EMS367 050746 041050 EMT131 035162 EMT213 036526 
EMS304 047250 043023 EMS60 044326 7132 035200 EMT214 036556 
EMS 047257 EMS370 051016 00 052526 EMT133 035220 EMT215 036570 
EMS307 047273 EMS371 051033 EMS601 052556 EMT134 035240 EMT216 03661 
1 042521 EMS372 051062 EMS602 052576 EMT135 035254 EMT217 
EMS310 047334 EMS373 051114 EMS603 052637 EMT136 035272 033072 
EMS311 047351 EMS374 051120 EMS604 05266 EMT137 035304 _ EMT220 
EMS312 047415 EMS375 051157 EMS605 052705 EMT14 032736 EMT221 036656 
EMS313 047453 EMS376 051165 052723 EMT140 035322 EMT222 
EMS314 504 EMS377 051201 EMS607 052743 EMT141 03534 EMT223 036712 
EMS315 047533 EMS4 040747 EMS61 044400 EMT142 035356 EMT224 036730 
EMS316 047561 EMS40~ = 04 EMS62 044453 EMT143 035374 EMT225 036750 
EMS317 EMS400 051212 EMS63 044534 EMT144 035410 EMT226 77 
EMS32. «042572 EMS401 051227 MS64 0464574 EMT145 035432 EMT227 037010 
EMS320 047622 EMS402 051244 EMS65 044644 EMT146 035454 033116 
EMS321 EMS403 051253 MS66 044705 EMT147 035472 EMT230 037026 
EMS322 047662 051314 EMS67 044762 EMT 032754 EMT231 044 
EMS323 047702 EMS405 051333 —MS7 041114 EMT150 04 EMT232 
EMS324 047721 EMS406 343 EMS70 045074 EMT151 035526 EMT233 037102 
047741 EMS407 051356 EMS71 045142 EMT152 035540 EMT234 037124 
EMS326 047752 EMS41 043133 EMS72 045221 EMT153 035554 EMT235 037152 
EMS327 047762 EMS410 051376 73 = 045277 EMT154 035574 EMT236 037172 
EMS33 042652 EMS411 051405 EMS74 045347 MT155 035614 EMT237 037224 
047770 EMS412 051422 EMS75 0465422 “M7156 035632 EMT24 033142 
EMS331 050007 EMS413 051435 EMS76 04547 EMT157 035654 EMT240 037244 
050037 EMS414 051450 EMS77 045537 116 ©. 032772 EMT241 037270 
EMS333 050055 EMS415 051467 EMTVEC= EMT160 035672 EMT242 037314 
050071 EMS416 T1 032460 EMT161 035722 EMT243 037340 
EMS335 050101 EMS417 051517 EMT10 032646 EMT162 035740 EMT 244 
050124 EMS42 04 EMT100 034316 EMT163 035756 EMT245 037402 
EMS337 050143 EMS420 051535 EMT101 03433 EMT 164 EMT246 037420 
EMS 042702 EMS421 051550 EMT102 034356 EMT165 036022 EM12647 037444 
EMS340 050157 EMS422 051565 EMT103 034370 66 036046 6 EMT25 66 
EMS341 050170 EMS43 043263 EMT104 034414 EMT167 EMT250 037462 
EMS342 050177 EMS44 0463334 EMT105 033010 FMT251 037506 
EMS343 050231 EMS45 043375 EMT106 034454 EMT170 036 EMT252 32 
EMS344 050245 EMS46 36. 043452 EMT107 034500 EMT171 036122 EMT253 037556 
EMS345 050 EMS47 043534 EMT11 2664 EMT172 036136 EMT254 037574 
050322 EMSS EMT110 034520 EMT173 036 EMT255 037612 
EMS 347 EMSSO 043574 EMT111 034542 EMT174 036176 EMT256 037636 
042731 EMSSOO 051633 EMT112 034562 EMT175 03622 EMT257 037654 
EMS350 050361 EMSSO1 051773 EMT113 034602 EMT176 036242 EMT26 
EMS351 050366 EMS5O2 052020 EMT114 034626 EMT177 036260 EMT 260 00 
EMS 352 EMS5O3 052070 —MT115 034650 EMT2 466 EMT261 037724 
EMS353 050420 EMS504 052115 EMT116 034674 EMT2 033026 EMT262 037750 
EMS354 0 EMS505 052150 EMT117 034714 EMT200 036260 EMT263 037766 
EMS355 0504 EMS506 052223 EMT12 032702 EMT201 036276 EMT 264 
EMS356 050521 EMS507 052264 EMT120 034734 EMT202 036314 EMT265 040030 
EMS357 050541 EMS51 043643 EMT121 034760 EMT203 0363 EMT 266 6 
EMS36 042773 EMS510 052354 EMT122 035000 EMT204 036354 EMT267 040064 
EMS360 050563 EMS511 052427 EMT123 035020 EMT205 036374 EMT27 3033240 


ee - 


-_ 


— EMT270 


een — 


ee 


0 
022432 


ee ee ee + 


_ CZRMQBO RMO5/3/2 DSKLS TST 2 
SYMBOL TABLE 


wn 
NO 
nuinun 


= 

AO 

mn 
nuntuu 


= 
—~ 
oi 


ILRG56= 


0000 
= 000054 
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031540 


000056 


ILRG60= 


MR1AAA 
MS 


“S885 


S 
= 
2) 
x 
nun 


Sam 
mm 
zo 


2 
© 
— — 
23 
~— 


000060 
000062 
064 


nuneut i 


100000 


RMCS3I 001410 
RMCS30 001 


001464 
RMDAI 001344 
RMDAD 001 
RMDB = 
RMDBI 001360 
RMDBO 001434 
RMDC = 000034 
RMDCI 001372 
CO 001446 
S = 000012 
RMDSI 001350 
001424 
T = 000026 
RMDTI 001364 
RMDTO 001440 
RMECII 001402 
RMECIO 001456 


RMERT = 000014 
RMERTI 001352 


RME 000042 
RMER2I 001400 
RMER2O 454 


001 
RMHRI 001374 
RMHRO 001450 
RMLAI 001356 
RMLAO 001432 
RMMRT = 
RMMR1I 001 
RMMRIO 001436 
RMMR2 = 0 


SEQ 0158 


CZRMQBO RMO5/3/2 DSKLS TST 2 


SYMBOL TABLE 
RMMR2I 001376 
RMMR20 001452 
RMOF = 000032 
RMOFI 001370 
RMOF O 001444 
RMR = 000004 
| RMSN = 30 
 RMSNI 1366 
| RMSNO £001442 
| RMWC = 2 
RMWCI 001340 
— RMWCO 001414 
RQA = 100000 
RQB = = 040000 
RTC = 000016 
R6 =%000006 
R7 =%000007 
= 000377 
SAVREG= 104414 
SAT = 000001 
SA16 = 000020 
SA2 = 000002 
SAS == 000004 
SAB = 000010 
SC = 100000 
SCOPE = 000004 
SCTCMP 023304 
SCTMSK= 003700 

scO = =_—~«0001 
SC1 = 000200 
SC2 = 000400 
S¢3 = 001000 
SC46 = 002000 
— 000030 
SETLFS 023412 
SETOM 022302 
SETVV 022160 
HUT 30662 
SIZCLK 021550 
I = 040000 
T= 020024 
STACK = 001100 
STANDA 004322 
START 002732 
START1 002722 
START2 002736 
STKLMT= 1777764 
STOPCL 001540 
SWR 001154 
SWREG 000176 
SWwO = 000001 
SWwOO = 000001 
SWOT = 000002 
SWO2 = 000004 
SwOS3 = 000010 
SwWO4 = 000020 


wW 
= 
—_ 
LN 
nnn nnntnnnnnnnnnnne 


TRAPVE= 
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000040 


006230 


SCNTLC 
SCNTLG 


006360 


030632 


SCNTLU 
$CPUOP 


$LPERR 


oS 

NS 

WANA © 
hon = = OW UPD 
MEMO SNIOCONOWM 


021274 


esssessssssssssco 
eSB SSSUSS 
PRSSRSMMASNSGES 


OODOOOOOOOCOOCOCOO ooo 
ee nel cel eee eel eel eel eel eee ~— — 

=A UI) — fp —_ Ww 

SME MENMNOO-$ fF O SMROO Lf 


SLPVEC 


EEEEEEEEEEE 


031534 
306 


001206 


SEQ 0159 


A tC ttt a ee ey 
a 


~~ 


— —— =< 


CZ7RMQBO RMOS/3/2 DSKLS TST 2 
TABLE 


SYMBOL 
$TKB 001162 STMPQ 001174 
SIKCNT 027412 STMP1 001176 
STKINT 027422 STMP2 01200 
STKQEN= 027421 STMP3 001202 
TKQIN 027414 TMP 1204 
$TKQOU 027416 $™N = 00002 
BTKQSR 027420 $TPB 001166 
$TKS 001160 STPFLG 001173 
STKSRV 027472 $TPS 001164 
. ABS. 056646 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 60672 WORDS ( 237 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
CZ7RMGS3.BIC,CZRMQB/C=CZ7RMOB.DOC,CZRMQB,SYSMAC /M 


$TYPDS 


031006 


024214 
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0 
001246 


$VECT1 001272 
$ =; 2 001274 
$XOF 000023 
$x ON. 000021 
$XTSTR 025240 
$$GET4= 000000 


$$SwO8= 000025 
SOFILL 024663 
-$X = 001100 


SEG 0160 


mes a ee ne rr ee ee 


EM 


F 13 
CZRMQBO RMOS/3/2 DSKLS TST 2 MACRO V046.00 4=-APR=81 01:29:56 PAGE S-1 
_ CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0161 


BSGETS 14-20 14-204 
 $$Sw08 28-1 28-1 28-1 28-1 28-1 


28- C 
“18 = 28-18 = 2B=1# = OB=1# = 28-14 = B14 = B14 Bele Bt 
— SOFILL «26-1 26-1# 26-1" 26-18 


SAPTHD 5-8 5-84 

SASTAT 35-1 35-1 

SATY1 35-14 

S$ATYS 27-1 35-18 

S$ATY4 29-1 35-14 

tATYC 35-1 35-14 

$AUTOB 6-04 9-28 9-66 31-1 31-1 31-1 

$BASE 6-04 9-76 0-33 0-42* 11-56 13-1 13-67 13-73 13-106 13-137 13-159 13-326 13-518 13-543 
13-554 13-601 13-671 13-74 13-806 13-917 #13995 13-:37 13-;54 13-=29 13-775 13-810 18-9 5 

$BDADR 13-14* 13-15* 13-35% 13-36* 13-67* 13-537* 13-538* 13-550 13-576* 13-577* 13-603* 13-604" 13-705« 


13=C37= 13-49" 13-C(50* 13-(66* 13-CB0x 13-C81* 13-(99% 13-D00* 16-23* 16-24% 17-22% 17-23% 19-30" 19-31« 
19-44% 19-45% 19-65% 19-66% 19-96% 19-97% 19=126% 19-1278 22-15% 22-16% 22-338 22-34% 45-1 45-2 


SBDDAT 6-04 15-8* 13-9 135-29* 13-30 13-208* 13-253" 13-315* 13-536* 13-546" 13-547" 13-575* 13-578* 13-594« 


1 1 1 1 
13-(64* 13-C78* 13-C97* 16-208 16-21% 17-18% 17-19% 19-328 19-46% 19-62% 19-63" 19-89* 19-90+ 19-123 
1PT2G0 go-12e 2215+ 22-50 22-S1e G5~1 45-3 45*645"B 65-9 4 5~10 45-11 45-12 


SBELL 29-1 29-1 29-1 31-1 31-1 31-1 
N 24-1 24-14 24-1 24-1* 
$C Dw 6-04 
$CDWe 6-04 
SCHARC 27-1 27-14 27-1* 27-1* 27-1* 
$CKSWR 31-14 33-1 33-1 
$CM3 6-0 6-04 
$CM4 a # . 6-0 6-0 6-0 6-0 6-0 6-0 6*0 6-0 6-04 6-08 6-08 6-08 
SCMTAG 6-08 9-25 9-23 9-23 9-23 9-253 9-25 9-25 
SCNTILC 31-17 31-1 31-1 31-1 31-14 
SCNTILG 31-1 31-14 
SCNTILU 31-1 31-1 31-14 
$ 6-04 


SCRLF 6-04 9-48 9-81 9-142 10-20 


10-28 10-62 10-101 11-25 11-67 14-20 27-1 27-1 27—} 
29-1 29=1 29-1 30-20 30-61 30-10 


4 30-114 30-126 30-134 30-154 31-1 31-1 31-1 31-1 


SDDWO 6-04 
$DDw1 6-04 y 
$DDWe 6-04 
$DDwW5 6-04 
$DDW4 6-04 


——— 


re ee 
- nei 1. 
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CROSS REFERENCE TABLE (CREF VO1=05 ) 


$DDwé 6-0# 

$DDw?7 6-04 

SDEVCT 6-08 

$DE VM 6-04 9-68" 9-79 9-120" 10-63 10-70" 10=<97* 10-98 11-4 11-38 31<6« 

$DOAGN 14-20 14-20 14-208 

SOTBL 25-1 25-14 

SENDAD 5-5 9-28 14-204 29-1 

SENDCT 9-23. 14-208 

SENULL 14-208 

SENV 6-04 9-28 27-1 29-1 35-1 35-1 

SENVM 6-04 9-23 9-72 27-1 27-1 35-1 

OP 14-204 31-7 ; 

SEOPCT 9-23 i4-2 14-204 

fEOSP 15-69 13-540 14-94 

SERFLG 6-08 28-1 28-1 28-1 28-1 28-1 28-1* 29~1 29-1 29-18 

SERMAX 6-04 9-23* 28-1 28-1 28-1 28-1* 

SERROR 9-23 29-14 

SERRPC 6-OF 29-1 29-1 29-1 29-1* 29-1 30-54 

SERRTB 8-O# 30-72 

SERTTL 6-0 14-20 14-20 14-20* 29-1 29-1 29-18 

SESCAP 6-08 9-235*  28-1* 29-1 29-1 29-1 29-1 

SETABL 6-0F 

SETEND 5-8 6-04 

SFATAL 6 35-1* 

SFFLG 35-1 35-14 35-1* 35-1* 35-1 

SFILLC 6-OF 27-1 27-1 27-1 

SFILLS 6-04 27-1 27-1 

S$GDADR 6-0F 

$GDDAT 6-04 13-11" 13-12* 13-13% 13-32% 15-33% 13-34% 13-209" 13-2548 13-314% 13-549% 13-5802 
13-707* 13-730* 13-762* 13-773* 13-786* 13-799» 13-842 13-881« 13-906% 13-942* 13-991" 13--30« 
135-347" 135-349 13-<02* 13-<28* 13-<66* 13-<84" 13==70" 13->148 13=>53e 13-235" 13-2572 13-a24« 
13-339 8=613-077* 13-095* 13-A24* 13-A78* 13-A97* 13-850" 13-868* 13-C25* 13-(35* 13-(45* 13-(46 
in Hw 17-21% 19-33% 19-47% 19-67% 19-95% 19-1288 22-14% 22-32% 45-1 45-3 

SGET42 11-34 11-43 14-204 

$GT42FP 14-20 14-204 

$GTSWR 31-14 33-1 33-1 
4-678 4-678 4-678 

SHIBTS 5- 

$HIOCT 32-18 32-1* 

SICNT 6 28-1 28-1 28-1 28-1* 28-1* 

$ILLUP 34-1 34-1 34-14 

SINTAG 6-04 31-1 31-1 31-1 31-1 3i=-1* 

SITEMB 6-04 29-1 29-1 29-1 29-1 29-1 29-18 29-18 30-49 

$LF 6-04 27-1 27-1 29-1 29-1 31-1 31-1 31=<1 

SLFLG 35-14 35-1 

$LLCSR 7-08 15-26 15-56* 15-84* 

$LLVEC 7-08 15=17 15-17* 15-18* 15-29% 15=30* 15-42 1§=42* 1543 

$.PADR 6-0f 9-235" 28-1 28-1 28-1 28-1* 28-1* 28-1* 

$.PCSB 7-04 15-52 

$.PCSR 7-08 15-12 15-53 15-81% 

SLPERR 6-08 9-235* 28-1 28-1 28-1 8-1* 29-1. 

$i PVEC 7-0" 75-158 15=16* 15=31 15=318 15=32* 15-40 15-4608 115=4i*% 

$MADR1 6-0f 

S$MADRZ2 6-08 

SMADR S$ 6-08 


SEQ 0162 


13-597 


13-605* 
13-:78+ 
13-238 
13-C€ 79+ 
45-9 


ee NEES sesh see gees 
- ee ee aoe 


-ZRMQBO RMOS/3/2 DSKLS TST 2 


BMA IL 


$SVLAD 
$SVPC 


6-04 
13=766 


14-20 


15-57 
34-14 


2/-1 
33-1 


55-1 
33-1 


36-214 


4-978 


4-9784 


13=1 
1$=995 


13=:37 
13-?754 


26-1* 
14-20* 


31-1 


4-978 
G25 


1 
4-978 
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“ROSS REFERENCE TABLE (CREF vO1-05 ) 


13-106 
15-;54 


31-1 


4-978 
9=25 


St] 
4-978# 


ew 


4-9788 9-23 


1-1 
4-978 4-9788  4-9788 


1 13 


E $-4 


81 01:29:56 PAG 


MACRO V04.00 4=APR 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


CZRMQBO RMO5S/3/2 DSKLS TST 2 


SEQ 0164 


28-1 28-1 28-1 28-1 


28-1 


4-679 


2 ee 
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28-1 28-1" = 2B=1= 2941 29-1 29-1 


28-1 


S 2&2 & 
eK eee 
ARR 
oo 
valavlatiatiatiat) 
$=32 wx 
SSPEY ee 
YK>>>>> 
ee be ee 
APRHARARA 


26-1 


$TYPOC 26-14 


$1 YPON 


— —- 
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CROSS REFERENCE TABLE (CREF vQ1=-05 ) SEQ 0165 
STYPOS 26-14 35-1 A 
SUNIT 6-04 11-50 11-69 30-c2 
SUNI TM 5-84 
' SUSWR 6-08 
$VECT1 6-04 10=46 10-56" 
$VECT2 6-04 
SXOF F 27-1 27-1 
' $XON 2/7=) 27=) 31-1 
$XTSTR 28-14 
SASTA 35-1 35-1 
. 8X 5-8 5-84 
Al6 4-9244 
Al7 4-92 34 
ABASE 44-9754 6-0 6-0 
ACDW1 6-0 6-0 
ACDW2 6-0 6-0 
ACPUOP 6-0 6-0 
ADDwO 6-0 6-0 
ADDW1 6-0 6-0 
ADDW10 6-0 
ADDW11 6-0 
ADDW1 2 6-0 
ADDW15 6-0 
ADDW14 6-0 
ADDW15 6-0 
4ADDW2 6-0 6-0 
ADDw3 6-0 6-0 
ADDW4 6-0 6-0 
ADDw5S 6-0 6-0 
6-0 6-0 
ADDW7 6-0 6-0 
6-0 
6-0 
ADEVCT 6-0 6-0 
ADE VM 6-0 6-0 


ADR 13-1 13-14 13-14 13-73 135-734 13-734 


: 13-1 -1064 13-137 -1357# 13-137@ 13-159 13-159# 
13-1594 13-326 13-3264 13-3264 13-518 13-5184 LF 
13*; 


064 13-1 13-1 
13-543 13-5434 13-5434 13-554 13-554@ 13-554# 13-601 
13-6014 13-6014 13-671 13-6714 13-6714 13-746 13-8 13 
13-995 15-9954 13-9954 13-:37 13-:374 13-:374 13-; 13 
a a 13-B10% 13-RB104 


~806 13-8064 -B8068 13-917 13-917# 13-9178 
~;548 13-=25 ~=29% 13-=298 13-275 13-?75a 


AENV 6 6 
AENVM 6-0 6-0 
AFATAL 6-0 6-0 
ALL 10-69 36-44 
AMADR1 6-0 6-0 
AMADR2 6-0 6-0 
AMADR3 6-0 6-0 
AMADRS 6-0 6-0 
AMAMS1T 6-0 6-0 
AMAMS2 6-0 6-0 
AMAMSS 6-0 6-0 
AMAMS, 6-0 6-0 
AMSGAD 6-0 6-0 
AMSGLG 6-0 6-0 
AMSGTY 6-0 6-0 
AMTYP? 6-0 6-0 


LE EN 


ee Ee 


eee <a 


CZRMQBO RMOS/3/2 DSKLS TST 2 


4-6824 


Zl=77 


35-1 

35-14 
37-59 
37-79 
10-97 


9-118 
6-0 


13=-:72 
13->14 


13-526 
4-694 


37-78 


35-14 


37-60 
37-80 


11-17 


10-100* 


13-:78 
13=A61 


13-528 
4-742 


37-81 


37-63 
37-85 


38-34 


13=<24 
13=-A63 


37-82 


13-<28 


13-533 
4-779 


37-85 


K 13 
MACRO VO04.00 4=-APR=-81 01:29:56 PAGE S=6 
~ CROSS REFERENCE TABLE ‘(CREF VO1-05 ) 


37-86 


37-68 
37-88 


13-<52 
4-834 


37-69 


13-<97 
4-871 


37-70 


13-A39 
4~945 


37-71 


4-930 


37-72 


28-1 


4-935 


37-73 


28-1 


SEQ 0166 


37-74 


28-1 


—- 


_ CZRMQBO RMO5/3/2 DSKLS TST 2 


— —_ — 
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| CROSS REFERENCE TABLE (CREF V01-05 ) 


Se 


BIT6 4-6824 

BIT? 4-6824 9-72 

BIT8 4-6824 

BIT9 4-6824 

BLNKS1 %36-354 

BLNKS2 9-134 10=34 10-48 36-344 

BLNKSS 36-334 

BLNKSS 9-83 36-324 

BOTADR 30-81* 30-99 30-102 30-117 30-1614 

BOTFLG 30-62" 30-109 30-112 30-115 30-1624 

BPTVEC 4 ff 

SE 4-8754 

BUFFER 13-560 #£13-631 13-686 13-812 13-923 13=:01 13-:43 13=;61 
45-214 45-24 

BUF 13-817 13-C56 45-224 

BUFTWO 45-234 

cc 4-8674 

CH 4-8684 

CHGADR 7-0O# 9-14* 9-17* 10-25 10=-27* 

CHRCNT 30-635* 30-86% 30-92* 30-93 30-96* 30-100 30-105* 30-116« 

CKSWR 28-1 29-1 29-1 33-14 

CLKSNC 13-804 #£«=+13-831 13-B78 22-64 

CLOCK 7-04 13-569 13-588 #£=+15-13* 15-27* 15-39 19-88 20-14 

CLR 4-9408 9-85 11-57 18-10 

CMNSTA 9-143 11-24 

CNSLO1 10-32 36-84 

CNSLO2 10-40 36-94 

CNSLO3 10-44 36-104 

CNSL 10-54 36-114 

CNSLO7 10-61 36-124 

CNSLO8 10-92 36-144 

CNSLO9 36-154 

CNICLR 13-7 13-28 13-75 13-108 13-116 13-139 13-162 13-213 
13-464 13-480 13-495 13-545 13-608 13-677 413-748 # 16-14 

COMMA =séséCs1‘O'- 86 11-6 11-14 36-64 

CONT 4-8284 

CPSAVE 28-1 28-1 28-1 28-1* 28-1* 29-1 29-1 9-1 

CR 4-6824 10-73 10-84 27-1 27-1 30-84 43-118 43-178 
43-185 43-186 43-187 43-188 43-189 643-189 43-190 

CRLF 4-6824 9-6 9-28 9-28 9-42 9-53 9-59 9-60 
36-9 36-11 36-12 36-13 36-14 36-15 36-16 36-18 
44-14 44-16 44-18 44-20 44-22 44-24 44-26 44-28 
45-31 45-32 45-33 45-34 45-35 45-36 45-37 45-38 
45-45 45-46 45-47 45-48 45-49 45-50 45-51 45-52 
45-59 45-60 45-61 45-62 45-63 45-64 45-65 45-66 

CYLMSK 4-8574 13-80 

DBCK 4-8024 19-106 19-119 

DBEN 4-8034 4-835 13-587 13-641 135-642 13-656 13-657 #13-658 
13-715 13-718 13-719 13-720 13-723 # 13=724 13-829 13-830 
13-901 13-902 19-82 19-106 19-107 19-113 19-114 19=119 
20-26 20-27 20-28 21-10 21-11 21-18 21-19 

DBL 4-9584 

DCK 4-7644 4-781 15-C44 

DDISP 4-6824 6-0 -23 

DEBL 4-8044 

DISPLA 6-04 9-23* 9-23*  28-1* 29~1* 

DISPRE 5-4 9-23 


13-=35 


50-1634 


13-262 
18-84 


29-1 
43-179 


19-120 


135-765 


135-767 


20-11 


135-782 


13-403 


29-1* 
43-182 


20-21 


45-5 


20-22 


SEQ 0167 


45-5 


———_ —<—_- -- 


_—- a ee _< — — a = < 


| M 13 
~ CZRMQBO RMO5/3/2 DSKLS TST 2 MACRO VO04.00 4=-APR=81 01:29:56 PAGE S-8 


_ CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0168 
DLT 4-9304 
DMD 4~8164 46-8344 4-835 13-144 13-154 13-587 13-618 13-619 13641 13-642 13-656 13-657 13-658 13-661 
13-662 13-679 13-680 13-696 13-697 13-698 13-699 13-715 13=718 13-719 13-720 13-723 13-724 13-753 
13-755 13-756 13-766 13-767 #£13-780 38 13-781 135-794 13-795 13-829 13-830 13-856 13-857 13-872 13-87% 
13-890 13-891 13-901 13-902 16-15 16-16 17-14 19-20 19=23 19=24 19=37 19=38 19=56 19-57 
19=82 19-106 19-107 19-113 19114 19119 19120 20-10 20-11 20-21 20-22 20-25 20-26 20-27 
20-28 21-10 21-11 21-18 21-19 
DPE 4-8824 
DPEH! 46-9544 
DPELO 4-9554 
PR 4-7574 
DRIVES 11-3 36-164 
4-8424 
DRVCLR 4-7024 
Y 4-7584 
DSWR 4-6824 6-0 9-23 
DTE 4-767# 4-781 13-611 13-621 13-649 13-664 13-666 13-703 13-726 #£13-730 
DUL PRT ~B45# 13-5235 13-528 #£13-533 
DVA 4-6884 9-90 13-547 3813-549 
DVC 4-8814 13-152 
EBL 4--8214 
ECH 4-7738 4-781 13-€44 37-77 37-78 37-85 37-86 
ECI 4-8504 


So 4-8258 13-<75 13-<84 13-a23 
ED115) 41-11 41-13 45-104 
ED2 41-2 41-10 45-24 


EDT! 8-3 8-49 8-52 8-55 8-58 8-61 8-64 8-70 8-73 8-76 8-79 8-82 8-85 &-88 
8-91 8-97 8-100 8-103 8-112 8-115 8-121 8-124 8-130 8-153 8-156 8-139 8-145 8-151 | 
8-154 8-157 &-160 8-196 8-199 8-208 8-211 8-214 8-217 41-14 | 
EDT115 8-94 8-175 8-202 41-114 


EDTS 8-15 8-18 8-22 8-109 41-34 | 


EECC 4-8504 13-023 13-091 1 
EFT 42-1 42-5 42-6 4 


EF2 42-2 42-7 45-154 
EF5 42-3 42-11 45-164 


13-A16 = 13=A24 


orn 
Dm 
— 


22 32% 2 3233332333333322 2 3332 2 2 333333 


N 13 


| CZRMQBO RMOS/3/2 DSKLS TST 2 MACRO VO4.00 4-APR=-81 01:29:56 PAGE S=9 
| CROSS REFERENCE TABLE (CREF V0O1-05 ) 
| £FS7 42-4 42-8 42-10 45-174 
| EFT 8-3 8-49 8-52 8-55 8-58 8-61 8-64 8-70 
8-91 8-97 8-100 8-103 8-112 8-115 8-118 8-121 
8-151 8-154 8-157 8-160 8-196 8-199 8-208 8-211 
EFT115 8-94 8-193 8-202 42-84 
EFT130 42-94 
EFT132 42-104 
EFT? 8-6 42-28 
EFT220 42-114 
EFTS 8-15 8-18 8-22 8-109 42-34 
EF TS7 8-127 8-142 B-148 42-44 
EFT65 42-54 
EFT71 42-64 
EFT74 42-78 
EH — 60-1 44-14 
EH115 40-12 44-184 
EH130 40-13 44-204 
EH132 40-14 44-224 
EH142 40-15 44-244 
EH145 40-16 44-264 
EH150 40-17 44-284 
EH2 40-2 44-34 
EH213 40-18 44-304 
EH220 40-19 44-324 
FHS 40-11 44-44 
EH47 40-5 44-84 
EHS 40-3 44-54 
EHS2 40-6 44-94 
EHS7 40-7 44-114 
EH61 40-8 44-134 
EH65 40-9 44-144 
EH7 40-4 44-74 
EH71 40-10 44-164 : 
EHT1 8-3 8-49 8-52 8-55 8-58 8-61 8-64 8-70 
8-91 8-97 8-100 8-103 8-112 8-115 8-121 8-124 
8-154 8-157 8-160 8-196 8-199 8-208 8-211 8-214 
EHT115 8-94 40-124 
EHT130 40-134 
EHT132 40-144 
EHT142 40-154 
EHT145 40-164 
EHT15O } §=68=-193 8-202 40-174 
EHT2 8-6 40-24 
EHT213 40-184 
EHT220 40-194 
EHT47 8-118 40-54 
EHTS 8-15 8-18 40-34 
EHTS2 8-127 40-64 
EHTS7 8-142 40-74 
FHT61 8-148 40-84 
EHT65 40-94 
EHT7 8-22 8-109 40-44 
EHT71 40-104 
FHT74 4C-114 
EMS1 39-3 39-4 43-14 
EMS10 39-119 39-121 43-84 
EMS100 39-50 39-54 39-56 39-62 39-64 39-07 39-69 39-104 


8-73 
8-130 
8-217 


43-684 


8-76 
8-130 
8-217 


8-76 
8-133 
40-14 


8-79 
8-133 
42-14 


8-79 
8-156 


8-82 
8-136 


8-82 
8-139 


8-85 
8-139 


8-85 
8-145 


SEQ 0169 


8-88 
8-145 


8-88 


8-151 | 


EE ee 
ne ae ee ee eer ere 


~BOSSsezees 3 233 3 33 


SA1 


} 


i 


EMS101 


CZRMQBO RMO5/3/2 DSKLS,TST 2 
| CROSS REFERENCE TABLE (CREF vO1-05 ) 


39-104 
39-60 


43-1048 


39-132 


43-694 
39-62 


39-76 
39-88 


43-798 


39-138 


39-64 
43-728 


43-754 


43-1024 


39-145 


39-70 


39-160 


43-704 


39-167 


39-301 
39-249 


39-174 


MACRO V04.00 4=-APR=81 01:29:56 PAGE S-10 


39-354 


39-329 


43-178 
39-356 


43-214 


39-286 


39-184 
43-884 


43-234 


43-1004 


39-329 


39-184 


39-370 


39-334 
39-372 


39-307 


43-874 


39-409 
39-327 


39-201 
39-128 


59-334 


43-1054 


39-390 43-148 

43-24 

39-392 43-188 

43-834 

43-244 

43-34 

39-229 39-233 39-238 
39-145 * 39-160 39-167 


43-1014 


39-249 
39-174 


SEQ 0170 


39-261 
39-184 


eS ee re ace em ss A st es eet ~ 


LET a + 


eee 


~ CZRMQBO RMOS/3/2 DSKLS TST 2 


| CROSS REFERENCE TABLE (CREF VO1-05 ) 


— EMS314 


39-203 


43-324 


39-25 


39=29 


39-94 


43-1194 
39-162 


39-47 
39-150 
39=25 


39-117 


39-225 
43-314 


43-1454 
59-227 
39-235 


43-1064 
39-181 
39-27 


39-121 


39-154 
39-281 


39-67 
39-148 
39-264 
43-1284 


43-1314 
39-163 


43-1404 
39-227 


59-231 
39-259 


43-1074 
39-29 


39-235 
39-3525 


C 14 
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39-31 


39~261 


39-323 


539=259 
43-1498 


43-1084 


39-261 


39-352 
39-297 


39-251 
39=354 


39-172 
43-1254 


39-121 


39-163 
39-271 


39-271 
43-1344 
39-240 


39-279 


39-342 


39-323 


39-281 


39-368 
39-303 


39-294 
39-359 
39-182 


39-251 


39-165 
39-273 


39-273 


39-259 
39-284 


39-3547 


39-325 


39=282 


39-386 
39-305 


39-342 
39-370 
39-207 


39-338 


39-170 
39-277 


39-275 


39-325 
39-286 


39-351 


39-327 


39-292 


39-403 
39-307 


39-351 
39-375 
39-211 


39-343 


39-172 
39-309 


39-277 


43-1374 
39-288 


39-358 


43-1478 


SEQ 01771 
43-1174 
43-1204 
39-313 43-1214 
39-358 39-367 
39-390 39-394 
39-221 39-240 
39-354 39-359 
39-182 39-191 
39-412 43-1274 
39-309 39-311 
39-327 43-1384 
39-363 39-367 


ei LE Lee 


=e te wm Ae a Ose hCOe he i'Fk.... 


eRe aes, 
i es 


~ CZRMQBO RMOS/3/2 DSKLS TST 2 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


EMS502 
EMS503 


39-335 


39-76 
39-397 
39-242 
43-1534 


39-311 
39-64 
43-44 


43-1684 
39- 


39-337 


39-94 


43-1514 


39-244 


39-331 
39-325 


39-92 


43-1714 


39-96 


39-234 
39-339 


39-225 
39-248 


43-15 
39-32 


39-102 


39-102 


39-341 


64 
? 


39-347 
39-315 


39-331 


43-1734 


39~344 


D 
MACRO VO04.00 4=APR=81 01:29:56 PAGE 


39-365 
59-327 


39-340 


39-332 


43-1644 


39-321 


43-1694 


39-346 


14 
-12 


39-379 
39-331 


39-349 


39-336 


39-365 
39-407 


39-354 
39-399 


39-323 


39-348 


59-395 
39-336 


39-356 


39~345 
39-372 


43-1614 


39-359 
39-401 


435-344 


43-1504 
43-1524 


59-365 


39-361 
39-381 


39-361 
39-403 


39-355 


39-372 


39-355 


39-381 


39-384 
39-407 


39-368 
39-410 


39-357 


SEQ 0172 
39-392 39-407 
39-401 39-410 
43-1604 
39-370 39-375 
43-1634 
39-350 39- 
39-135 39-142 
39-20 39-210 
39-254 39-256 
39- 39- 
39-324 39-326 
39-30 39-32 
39-49 39-51 
39-127 39-129 
39-166 39-168 
39-220 39-226 
39-328 39-330 
39-360 39-362 


SS A te <n nemenee <oeee a 
—— - - 
SR _ 
ren eee eee ees 


 -EMS5O04 +39-11 39-14 39-16 


, 
: E 14 
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CROSS REFERENCE TABLE (CREF VvO1-05 ) SEQ 0173 


39-364 39-366 39-369 39-371 39-373 39-376 39-378 39-380 39-382 39-385 39-387 39-389 39-391 39-393 
59-396 39-398 39-400 39-402 39-404 39-406 39-408 39-411 43-1834 

39-38 39~40 39-42 39-51 59-55 39=57 39~63 39-66 39-68 39-71 39-75 
39-83 39-87 59-89 39-103 = 359-105 = 39-109 = 39-111 = 59-118 = 39-188 = 39-190) 39-192 39-194 9 39196 = 39-204 
39-206 39-208 39-258 39-267 39-276 39-278 39-283 39-287 39-289 39-291 39-41% 43-1844 


EMSSOS 39-7 43-1854 


Oe eg: Ee 
tt cate - 


EMS511 39-5 39-7 39-11 39-14 39-16 39-18 39-20 39-22 39-24 39-26 39-28 3 39-32 

39-34 39-36 39-38 39-40 39-42 39-44 39-46 39-49 39~51 39-53 39-55 39-57 39-59 
39-66 39-68 39-71 39-73 39-75 39-77 59-79 39-81 39-83 39-89 39-91 

39-93 39-95 3 39-99 39-101 39-103 39-105 39-107 39-109 39-111 39-113 39-115 9-118 39-120 
39-122 = 339-124 9-127 = 59-129, 339-131 539-1335 59-155 59-137 9 39-139 59-1462 9 39-144 39-146 39-149 39 39-15 
39-155 39-155 = 339-157 = 339-159 = 559-161 39 339 164 166 39-168 39-171 39-173 39-175 39-178 39-1 39-183 
39-185 3 39-192 39-194 39-196 39-198 39-2 39=202 06 39-208 39-210 39-212 
39-214 39-216 = 399-218 «= 39-220 §=— 39-222) 39-224 3=— 39226 §3=— 39-228 §3=— 339-230 39 39-232) 39-234, 39-239 = 39-241 
39-2435 939-245 39-247 39-250 9-252 = 339-254 = 339256 §=— 539-258 = 339-260 9 39-2635 §=— 39-265 = 39-267 §=— 39-270 3 39-272 
39-274 39-276 39-278 39-283 39-285 39-287 39-289 39-29 3 3 39-302 
5 39-308 39-310 39-312 39-3514 39-316 39-318 39-320 39-322 9-324 39-326 39-328 39-330 
39-335 39-335 9 339-337 = 339-339 39-341 39 339 344 34 39-350 39-353 39-355 39-357 


39-346 39-348 39-360 39-362 
39-364 39-366 39-369 39-371 39-373 39-376 39-378 39-380 39-382 39-385 39-387 39-389 39-391 39-393 
39-398 39-400 39-402 39-404 39-406 39-408 39-411 39-413 43-189¢ 


EMS6 39-114 39-117 39-119 39-121 43-64 
39-297 Of 
EMS600 39-262 39-264 39-266 39-412 43-192 


EMS606 39-370 39-372 39-375 39-377 39-379 39-381 39-384 39-386 43-1984 
EMS607 39-92 39-390 39-392 39-395 39-397 39-399 39-401 39-403 39-405 39-407 39-410 63-1998 


EMS62 «39-303 §=639-305 939-307 3939-309) 43-524 

EMS63 5539-311) = 59-313) 39-315 = 39-317 = 39-319 = 39-321 39-323 = 39-325 939-345 939-361 = 39-377 43-5 34 
39- 7 : 

EMS66 §= 39-334 «= 359-336 «= 339-338 = 339-343 = 39-354 939-359 939-370 §9= 39-375 «= 39-388 = 339-390 = 339-405 4 3-568 

EMS67 = 339-352 339-368 = 39-386 = 39-403 = 43-574 


EMS70 39-37 39-136 39-384 39-410 43-594 


. ( 
EMS73 39-37 39-39 39-41 39-43 39-48 39-69 43-634 


TEE Eee 


: F 14 
CZ7RMQBO RMOS/3/2 DSKLS TST 2 MACRO V04.00 4=APR=81 01:29:56 PAGE S=14 
CROSS REFERENCE TABLE (CREF vOQ1-05 ) SEQ 0174 


—MT10 —s-_- B=25 39-174 
 —EMTI 


—MT102 8-199 39-1364 


EMT 11 8-28 39-194 


EMT12 8-31 39-214 


EMT13 8-34 39-234 


EMT14 8-37 39-254 


EMT15 8-40 39-278 


-43 39-2984 
EMT160 39-2354 
EMT161 439-2388 


re = eee ee rt ne eee = — 


eo eer a te 


a 
etre eee erneenee nner nmemmenes see 


CZRMQBO RMOS/3/2 DSKLS TST 2 
TABLE (CREF VvO1=05 ) 


CROSS REFERENCE 


EMT162 
EMT163 


EM! 242 
EMT 243 


39-314 
39-2534 


34 
39-2694 


39-354 


39-374 


39-394 


39-414 


G 14 
MACRO V06.00 4=APR=81 01:29:56 PAGE S-15 


SEQ 


0175 


| 


CZRMQBO RMOS/3/2 DSKLS TST 
TABLE (CREF vO1=05 ) 


| CROSS REFERENCE 


eee ere 


EMT 244 


39-3454 


39-434 


39-454 


39-484 


39-4014 
39-4034 


39-64 
39-SO0# 


39-4124 
5 


H 14 
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39-744 


SEQ 0176 


A tata — 


I 14 
CZRMGBO RMO5/3/2 DSKLS TST 2 MACRO VO04.00 4=APR=81 01:29:56 PAGE S=17 
CROSS REFERENCE TABLE (CREF VC1-05 ) SEQ 0177 


EMTVEC 4-6824 9-235* 9-23* 
ENBSCH 13-564 13-635 13-690 13-816 13-927 13=:05 132:47 134;72 13-=40 13-795 13-822 19-30 


ERRNMB 30-48* 530-49* 30-52 30-57 30-64 30-1604 


ERRVEC 4-682 (9-23 9-23" 9-23 99-25% 9-268 15-6 1571528 15-98% = 15-25% 15-46" 15-47" 28-1 
28-1 2B-1* = -28-1* =. 28-1* —-2B-1* = 2B-1® = 29-1 29-18 = 29-1 


ERTYOS 9 30-1704 

ESRC 4-8234 19-124 19-128 
FO 4-693# 

FI 4-6924 

F? 46-6914 

F3 4-6904 

F4 4-6894 

FER 4-775 4-781 13-755 


FMT 16 4-B849H 13-559 13-630 13-741 13-743 13-811 13-922 13":00 = 13=:42 13-;60 13-=37 13-281 13-B16 


-30 14-20 14-20 33-1 35-1 33-1 


GNS 5-1 5-1 9-6 9-28 9-42 (9-53 9-59 9-60 3 
1 33-1 33-7) 38-1 88-1 838-1 


11 
33-1 33-1 33-1 33-1 33-1 33-1 33-1 33-1 33 
Sad 55°1 7 


33-1 33-1 33-1 33-1 33-1 33-1 
GO Dt + a 13-562 =135-633 = 135-688) = 113-814 = 13-925) 13-:03) 13:45 -;70 13-=38 13-?86 -.13-B20 16-19 17-17 
GTSwR 9-28 33-14 
HCE 4-772 4-781 13-755 37-77 37-78 37-81 37-85 37-86 
HC] 4-8518 13-781 13-B16 
HCRC 4-771# 4-781 13-755 


J 14 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


HELP 10-17 45-268 

HT 4-6824 27-1 27-1 30-90 

[AE 4-7694 37-59 37-69 37-77 37-78 37-81 37-82 37-85 37-86 

IBSAVE 29-1 29-1 29-1 29-1 29=1 29-14 29-1 29-1 29-1 

IDXMSkK 464-9134 

IE 44-9264 4-9598 

ILF 4-779 37-58 37-67 37-68 37-70 37-71 37-72 37-73 37-74 
37-84 37-87 37-88 

iL FQ? 4-6 

ILF 24 4-7094 

ILF 26 4-7104 

ILF 30 4-7144 

ILF 32 64-7144 

ILF3400 44-7148 

ILF36 94-7144 

ILF4O 4-7144 

ILF42 4-7144 

ILF44 0s «4 -7148 

ILF46 4-7144 

ILF54 4-7174 

ILF 56 44-7184 

ILF 64 4-7214 

ILF 66 4-7224 

eS a: ee eee . 

L ~ ~ 13- 15-171 13-124 13-165 13-189 13- - 

74 ‘- 3-222} §6 13-238 

ILRGSO 4-9104 

ILRG5S2 4-9104 

ILRG5S4 4-9104 

ILRG5S6 4-9104 

ILRG6O 4-9104 

ILRG62 4-9104 

ILRG64 4-9104 

ILRG66 4-9104 

ILRG7O0 4-9104 

ILRG72 4-9104 

ILRG74 44-9104 

ILRG76 4-9104 

IOTVEC 4-682 9-22* 9-2 3% 

IPCKO 4-9634 

IPCK1 4-9624 

IPCK2 4-9614 

IPCK3 4-9604 

IVC [ie ok an asad aes 

V - -5 - - -6 7-6 37-64 37-67 37-68 
+708 37-75 37-76 37-77 37-78 37-79 37-80 37-81 37-82 

i BC 4-880" 

L&T 4-7554 

LCLOCK 15-27 15-564 

ee Ea ee se 30-88 «3 

L - - - 6-11 43-118 43-178 43-179 43=180 
43-186 43-187 43-188 43-189 43-189 43-190 

LODE Vv 9-130 36-254 

LS 4-8324 

LSC 4-8794 

LST 4-8334 


37-75 


13-428 


37-69 
37-83 


43-181 


37-76 


13-432 


37-70 
37-84 


43-182 


37-79 


37-71 
37-85 


43-183 


37-80 


37-72 
37-86 


43-184 


SEQ 0178 


37-83 


37-73 
37-87 


43-185 


SEQ 0179 


K 14 


-81 01:29:56 PAGE S=-19 


MACRO V04.00 4=/°R 


ROSS REFERENCE TABLE (CREF VO1-05 ) 


ZRMQBO RMOS/3/2 DSKLS TST 2 


ww 


37-6. 


™ 0 We cw 
OO 00 Ro. RR ORM D0 F500 
ahi fer KORY hin oot 3 
NYY mad amrrnrou viel mre fn. 
oe ee oe OY ee ee OY oe Ty mee TY Mw 
Nm Or = nr 
BS, BR] RRGBe OBES BBS H 
thaw re? yore ny vere eee rs 
NN) al Mm NON) MN) 
a wATo- oO NM 
Sige OPPS OGYAER TE PPT PPT ; 
mn) MINNIE CU NM) NIN) Or ¢ nN 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0180 


37-67 37-68 «= 37-690 37-70) 03 37-710 87=72)0— 877387724 87475 87 HT 7077 _ ore m 
37-81 37-82 37-83 37-84 37-85 37-86 37-87 37-88 .. 4 ere 37=60 


OR 384 
 PACACK 4-708 16-19 16-28 19-61 19=70 


PDA 4-8264 13-025 13-067 135-077 13-091 13-092 13-895 132415 13£C19 13-€23 


4-9354 
PGM 44-7564 
PHA 4-8274 13-:96 13-<02 13-<62 13=<66 13-823 13-A60 8 13-A62 
PIP 4-7524 


PLCLK 15-54 15-584 
PLFS 4-8244 13-840 135-879 13-881 13=>50 13=>53 13-228 13-735 13-842 13-849 13-862 13-868 13-871 21-21 


22-10 22-13 22-14 


DR 4-6824 11-49 

PR1 4-6824 

PR2 4-6824 

PR3 4-6824 

PRS 4-6824 

PR5 4-6824 15-64 

PR6 4-6824 9-26 15-9 15-16 15-30 15-62 
PR7 4-6824 15-61 

ay -682 4-6824 


PSTOP 15-14 15-814 


PSW 4-6824 

PUTBUF /7-OF 

PWRVEC 4-6824 9-23. 9-23*  34-1* 34-1* 34-1* 34-18 34-1* 34-1* 
QUES 36-54 

R6 4-6824 9-25 9-25* 9-23* 

R7 4-6824 

RD 4-72354 13-925 13-:03 13-820 

RDCHR 10-12 0-65 10-82 31-1 33-14 


1 
RDLIN 32-1 33-14 
RDOCT 10-35 10-49 33-14 


READY 11-374 14-16 14-20 
READY? 11-35 11-464 


RE CAL 
RESREG 30-156 33-14 
~682 


REX 4-822# 
RG 4-8204 19-90 19=95 
RH 4-/7248 13-=38 

4-7064 


RIP 
RLEASE 4-7034 


M 14 
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| 


S-21 
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SEQ 0181 





13-388  13-404« 


13-410* 


13-272 13-382* 
13-391 


13-265* 
13-281 


13-413 


13-388* 


13-272* 


15-431 


- 15-427* 


13-371 
13-291 


13-367* 
135-274* 


135-274 


13-267* 


13-374 


13-371* 


11-59 13-446" 13-520 13-538 30-26 


13-448 


13-390 
13-2768 


135-384* 
13-248 
15=511 


13-276 
19-84* 


13-235" * 13-241* 


13=-269* 
19-60* 


13-510* 


13=504* 


N 14 
GE S22 
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13-383* 135-389 13-405 
13-285 135-389* 


13-273 


13-266* 


13-393" 


135-273* | 


RMMR1 I 
RMMR 10 
RMMR2 
RMMR2 I 
RMMR2O 
RMOF 
RMOF I 
RMOF O 
RMR 
RMSN 
RMSNI 
RMSNO 
RMWC 
RMUIC I 
RMWCO 
RQA 
ROB 
RTC 
SA1 
SA16 
SA2 
SAS 
SAB 
SADMSK 


R 
! 
mw 
wt 
RRR 
MEANS TORS KASS 
QLESIMS IMI SFSS 
RRR RL RK OA ACALAL 
SERRSeeeregaga 
SSS SS eee ee eS 
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we 
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TOwwvow 
YNHMANNY 
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SEQ 0183 


— CZRMQBO 
CROSS REFERENCE TABLE (CREF v0O1-05 ) 
| SCOPE patty 13-1 13-73 13-106 13-137 13-159 §=13+326 0) =—-13=518 3=—s:« 13-543) 13-5542): 113 "601 13<671 3-7 z- 
| r - ~ - - - - “54 - -6 -6 13-746 13-806 
| 3-917 13-995 3-237 8913-356 3 =13-=29 = 135=?75) 13-810) Ss «14-9 
SCTCMP 13-819 13-930 -:08 13-:50 13- 13-=43 §=6©13+798 13-825 20-74 
SC TMSK 4-7978 
SEARCH 4-71184 
Ex 4-7004 
SETLFS 1349335 13=:11 13-201 13-828 21-64 
TOM 17-134 
SETVV 16-134 
T 31-7 31-1 31-34 
SIZCLK 11-28 15-54 
I 4-8764 13-152 
S T 6=-84484 13-521 13-526 3=«.:«»1 3+ 3 
STACK 4-6824 23 -1 13-73 135-106 13-137 13-159 13-326 13-518 13-543 13-554 12-601 13-671 13-746 
3-806 13-917 13-995 13=:37 132:54 132=29 14-775. 13-810 : 
STANDA 9-67 34 
START 5-1 9-174 11-33 11=42 31-5 
START 5-3 9-144 
START2 915 9-184 
STKLMT 4-6824 
STOPCL 7-08 13-572 13-591 15=14* 15-28 19-94 19-102 20-17 
SwO 4-6824 | 
SWwOO 4-682 4-6824 
SWOT 4-682 4-6824 
SWwO2 4-682 4-6824 
Sw03 4-682 4-6824 
SWO4 4-682 4-6824 
Sw05 4-682 4-6824 
SwO06 4-682 4-6824 
SwO7 4-682 4-6824 
SwO8 4-682 4-6824 
SwO9 4-682 4-6824 
Sw 4-682" 
Sw10 4-6824 
Sw11 4-6824 
SW12 4-6824 
Sw1 5 4-6824 30-14 
SW14 4-6824 
Sw15 4-6824 
SW2 4-6824 
Sw 4-6824 
SWS 46-6824 
SwW5 4-6824 
SW6 4-6824 ° 
SW7 4-6824 
SWw8 46-6824 
Sw9 4-6824 
SWR 6-04 9-23 9-23 9-23 9=-23* 9-25 9-28 28-1 28-1 28-1 28-1 28-1 28-1 28-1* 
28-1* 28-1* 28-1 29-1 29-1 29~1 29-1 29-1 30-14 31-1 31-1 si-1* 34-1 34-18 
5-14 9-23 9-28 31-1 31-1 31-1 
SYSTAT 9=77 36-2 
Al 4-735a 
TAI6 4-7318 11-63 13<+=17 13=>91 
TAZ 464-7348 11-63 
TAG 4-7338@ 11-55 
TAS 4-7324 


———— <_—.-- 
te ame 


_ CZRMQBO RMO5S/3/2 DSKLS TST 2 
| CROSS REFERENCE 


TADMSK 4=745¢@ 
TAG 4-8654 
TAGADR 5-98 
TAP 4-8404 
TBITVE 4-6824 
IME 7-0# 
TKVEC 4-6824 
TPVEC 4-6824 
TRAPVE 4=-6824 
COE 4-9204 
TRIVEC 4=-6824 
TST 4-8664 
TSit 13-14 
TST1O0 =._:«W135 = 544354 
TST11 13-5544 
TST12 §@ 13-6014 
TST135 §613-6714 
TST14 13-7464 
TST15 3 
TST16 3 = 13-9178 
TST17 3=13-9954 
TST2 13-734 
TST20 13-:374 
TST21 13-;544 
TSt22 43 =6135-=298 
TST23 =: 1 5+? 75 
TST24 13-8104 
TST3 135-1 
TST4S 13-1374 
TST5 13-15 
TST6 13-3264 
TST? 13-5184 
TSTN®B 4* 
TSTQUE 7-0F 
13-601 
14-17* 
TYPBN 30-149 
TYPDS 14-20 
TYPE 9-6 
9-130 
10-44 
11-7 
29-1 
30-134 
31-1 
TYPOC 9-8 
TYPON 33-14 
TYPOS 9-45 
4-9454 
Ul 4-9454 
U2 4-946454 
4-7654 
UNTMSK 4-9494 
UNTOF F 9-123 
UNTON 9-133 
UPE 4-932a 
USE 4-8884 


TABLE (CREF vO1=05 ) 


15-58 
3i-1* 


9-25 


15-718 
3}-1s 


9-25* 


30-47 
11-9* 
13-746 


13-33 


15=73* 


30-1594 


31=1 


30-146 
11-16 


33-14 


30-22 


13-73 
13=:37 


C 15 
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135-137 
13-=29 


13-159 
135-?75 


13-326 
13-B10 


13-518 
14-11 


9-114 
10-32 
10-101 


26-1 
30-114 


31-1 


SEQ 0184 


D 15 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 
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13-814 13-786 
9-59» 9-44 9-55 9-126 9-128 


13-688 


37-78 


— ee ee ee -e ee e 


E 15 
E M=1 
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SEQ 0186 


| CROSS REFERENCE TABLE (CREF V01-05 ) 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0187 
GETBA 4-136 
GETBAE 4=280# 
GETCS) 4-120 13-85 13-119 13-180 13-230 13-546 
GETCS2 4-152# 13-8 13-29 
GETDA = 4-176 =13-86 = 13-181. 13-231 13-272 13-388 = 13-410 13-469 =: 13-486 
GETDB 94-1444 : 
GETDC = 4=184# 913-87 = 13-184 13-233) 13-274 «= 13-371 13-431 132451 13-503 
GETDS 4-160 16-20 17-18 19-62 
GETDT 4-208% 13-520 
GETEC]  4=2244 
GETEC2 4-232# 
GETERT 4-1 13-120 = 13-147 13-182 13-234 = 13-275. 13-370 13-430 13-449 = 13-485. 13-575 13-594 «13-610: 13-620 
13-648 13-663 13-702 13-725 «13-254 = 13-43 
CETER2 4-2 13-121 13-148 )=— 13-185 13-235 13-276 )=— 13-390 13-412 13-470 = 13 +504 
THR © 4~240# 
GETLA 4-192 
GETMR1 = 4-248 13-149 13-757 13-768 ~=— 13-782 13-796 = 13-833 13-860 = 13-878 «= 113-903 13-947 13-962 13-986 ~—-:13-=25 
13-:86 = 13-:98 = 13-309 13-334 13-387 9 13-<13)-13-<4B)13-<74)13-<93.13-=57. 13-=78 ~=— 13-500) 13-322 13-341 
13-219 = 13-245 = 13-@22)-13-@66 = 13-890 »=—13-A14. «13-435. 13-A72.- 13-491 =—s«13-B41 = 13-B61.—Ss-«13-C18 =: 13-c73.—S «13-92 
79-25 19-39. 19-89 19-123 21-12 21-20, 21-32) 21-38) 22-9) 22-25 
GETMR2 4-256# 13-:57 13-:71 13-<22 13-=66 13-209 13-836 13-C31 
GETOF 4-264 13-88 13-183 13-232 13-273 13-389 13-411 13-450 =: 13-502 
GETPRI 4-6824 15-59 
GETSN 4-216 
GETSWR 4-682 9-28 9-284 
GETWC 304-1284 
GETX 4-112 
MSG 4-84 = 13-1 13-73. 13-106 13-137 13-159 =: 13-326 13-543 13-554 13-601 13-671 13-746 13-806 
, BUT, 15-995 13-257 15-54 15-=29 15-775 13-810 
dl 
NEWTST 4-682# 13-1 13-73. 13-106 «13-137 13-159 =: 13-326 13-543 13-554 13-601 13-671 13-746 13-806 
13-917 13-995 13=:37  13-;54 = 13-=29. 13-775 = 13-B10 | 
NWTST -498# 13-1 13-73. 13-106 »=—- 13-137 13-159: 13-326 13-543 13-554 13-601 13-671 13-746 13-806 
13-917, 13-995 13-:37. 13-54 = 13-=29. 13-275 = 13-B10 
POP 4-6824 15-46 15-47 18-12 22-1 25-1 32-1 34-1 35-1 35-1 
PUSH 4-682 15-6 15-7 18-8 27-1 25-1 32-1 34-1 35-1 35-1 35-1 
PUTAS  4-460# 13-385 
PUTBA  4-324H = 19-79 
PUTBAE 4-4684 ) 
PUTCS1 4-309 13-78 13-111 13-165 13-172 13-222 13-428 17-17 19-61: 19-85 
PUTCS2 4-340# 
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PU -3324 
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13-766 13-767 = 13-780 = 13-781 13-794) 13-795 13-829 13-856 13-857. 13-872, 13-873) 13-890 13-897 
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